Les Trucs & Astuces Informatiques de Michel

http://michel.vergriete.perso.sfr.fr/accueil.htm
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  

Partagez | 
 

 Copier des cellules en VBa

Aller en bas 
AuteurMessage
micpid



Nombre de messages : 1
Date d'inscription : 17/09/2014

MessageSujet: Copier des cellules en VBa   Mer 17 Sep - 2:32

Bonjour
J'ai un souci avec le code ci-dessous
Private Sub CommandButton1_Click()



Application.ScreenUpdating = False
'ActiveSheet.Protect UserInterfaceOnly:=True
Range("E2:L2").Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Range("E3:L3").Copy
Range("E3:L3").PasteSpecial Paste:=xlPasteValues
Range("E2:L2").PasteSpecial Paste:=xlPasteFormats
Range("G2").Value = Range("C15").Value
Range("F2").Formula = "=IF(C14>0,SUM(C2:C13),"""")"

'Range("C15").Copy Range("G2")
Range("H2").Formula = "=IF(C16>0,SUM(C14:C15),"""")"
Range("C17").Copy Range("I2")
Range("C18").Copy Range("J2")
Range("K2").Formula = "=IF(C19>0,SUM(C17:C18),"""")"
Range("L2").Formula = "=IF(C20>0,SUM(C16-C19),"""")"
Range("B2:B13,C15,C17,C18").ClearContents
Range("E2").Activate
End Sub
Lorsque je test ce code toutes les lignes qui comportent Formula s'executent en direct lorsque que je fait mes saisies et lorsque j'execute la commande global je n'ai pas le résultat sur la même ligne
sur une ligne j'ai le résultat des cellules H2, K2 L2 et sur la ligne du dessus j'ai le resultat des cellules C15, C17, C18
Comment faire le résultat de toutes les cellules saisies sur une même ligne
merci
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
 
Copier des cellules en VBa
Revenir en haut 
Page 1 sur 1
 Sujets similaires
-
» probleme avec les cellules d'excel sur la mise en forme
» probleme de copier / coller action
» [Resolu] copier une vidéo sur internet
» copier des cartes d'un PC sur un MAC
» copier une carte à jour d'un 255w sur un autre 255w perimé

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
Les Trucs & Astuces Informatiques de Michel :: Bureautique-
Sauter vers: