M
magoo
Guest
Bonjour à tous,
J'ai besoin de copier les cellules d'une feuille, ou je fais mes calculs, dans une autre ou je n'affiche que les résultats (sans formule).
Je voulais savoir si il y avait des solutions pour optimiser le code suivant qui correspond à la copie de une cellule dans mon formulaire alors que j'en ai une cinquantaine
Sub CopieCellule()
'
Sheets("CalculeCompteContact").Select
Range("H8").Select
Selection.Copy
Sheets("Formulaire").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
End Sub
Il y a sûrement plus simple
Merci à vous d'avance
Magoo
J'ai besoin de copier les cellules d'une feuille, ou je fais mes calculs, dans une autre ou je n'affiche que les résultats (sans formule).
Je voulais savoir si il y avait des solutions pour optimiser le code suivant qui correspond à la copie de une cellule dans mon formulaire alors que j'en ai une cinquantaine
Sub CopieCellule()
'
Sheets("CalculeCompteContact").Select
Range("H8").Select
Selection.Copy
Sheets("Formulaire").Select
Range("G5").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
End Sub
Il y a sûrement plus simple
Merci à vous d'avance
Magoo