jerjou
Messages postés6Date d'inscriptionmercredi 25 octobre 2006StatutMembreDernière intervention14 mars 2007
-
25 oct. 2006 à 19:02
jerjou
Messages postés6Date d'inscriptionmercredi 25 octobre 2006StatutMembreDernière intervention14 mars 2007
-
27 oct. 2006 à 17:21
Bonjour à tous,
Je suis novice, Help:
Une question, peut-être simple mais à laquelle je n'ai trouvé de solution sur le net.
Peut-on regrouper les lignes suivantes en une seule commande, c'est à dire selectionner toutes ces plages en une seule fois et coller en une seule fois?
jerjou
Messages postés6Date d'inscriptionmercredi 25 octobre 2006StatutMembreDernière intervention14 mars 2007 26 oct. 2006 à 09:22
Bonjour et merci pour ta réponse, mais c'est une selection de cellule avec variable que je souhaite faire. et pour simplifier le code je veux savoir si les lignes soulignés peuvent être regroupées? voici le code complet.
merci d'avance.
For a = 172 To 221
For b = 4 To 34
If Cells(a, 28).Text = Cells(b, 249).Text Then _
Range(Cells(a, 28), Cells(a, 32)).Select: Selection.Copy: _
Range(Cells(a, 58), Cells(a, 62)).Select: Selection.PasteSpecial: _
Range(Cells(a, 70), Cells(a, 74)).Select: Selection.PasteSpecial: _
Range(Cells(a, 82), Cells(a, 86)).Select: Selection.PasteSpecial: _
Range(Cells(a, 94), Cells(a, 98)).Select: Selection.PasteSpecial: _
Range(Cells(a, 34), Cells(a, 38)).Select: Selection.PasteSpecial: _
Range(Cells(a, 46), Cells(a, 48)).Select: Selection.PasteSpecial: Application.CutCopyMode = False
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 201260 26 oct. 2006 à 09:29
Salut,
Que l'on soit d'accord,
Ce que tu as actuellement fonctionne? n'est ce pas ?
Ce que tu cherches à fair c'est "juste" de la simplification d'écriture.
Note: Je pense que la derniere ligne devrait être Range(Cells(a, 46), Cells(a, 50))
jerjou
Messages postés6Date d'inscriptionmercredi 25 octobre 2006StatutMembreDernière intervention14 mars 2007 27 oct. 2006 à 17:21
Salut,
Oui c'est ça. Mon code fonctionne, je cherche juste à le simplifier car je dois le répéter plusieurs fois selon d'autres vairiables.
Ta correction pour la dernière ligne est bonne, merci.
Merci
@+