Copier Range A:N d'une ligne
Résolu
avyrex1926
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
-
18 janv. 2008 à 16:40
avyrex1926 Messages postés 360 Date d'inscription dimanche 3 décembre 2006 Statut Membre Dernière intervention 3 janvier 2012 - 19 janv. 2008 à 14:00
avyrex1926 Messages postés 360 Date d'inscription dimanche 3 décembre 2006 Statut Membre Dernière intervention 3 janvier 2012 - 19 janv. 2008 à 14:00
A voir également:
- Copier Range A:N d'une ligne
- Vba copier coller dans une autre feuille ✓ - Forum Visual Basic 6
- Copier cellule dans autre feuille (vba) - Forum Visual Basic
- La méthode pastespecial de la classe range a échoué - Forum VBA Office (Excel, Word ...)
- La méthode PasteSpecial de la méthode Range a échoué - Forum Visual Basic 6
- Probleme méthode PasteSpécial ✓ - Forum VBA Office (Excel, Word ...)
3 réponses
cs_MPi
Messages postés
3877
Date d'inscription
mardi 19 mars 2002
Statut
Membre
Dernière intervention
17 août 2018
23
19 janv. 2008 à 02:24
19 janv. 2008 à 02:24
Salut Avyrex,
Tu dois spécifier le Range comme il faut
Sheets("DC-67 Boucherville").Range ("A" & Ligne & ":N"& Ligne).Copy
Tu dois conserver la syntaxe
ex:
Range("A2:N2")
tu changes 2 par la variable Ligne, mais aux 2 endroits...
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
Tu dois spécifier le Range comme il faut
Sheets("DC-67 Boucherville").Range ("A" & Ligne & ":N"& Ligne).Copy
Tu dois conserver la syntaxe
ex:
Range("A2:N2")
tu changes 2 par la variable Ligne, mais aux 2 endroits...
MPi²
Pour ceux qui programment sous Office, n'oubliez pas qu'il existe un forum dédié à ces applications VBA....... ICI
avyrex1926
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
3
18 janv. 2008 à 23:16
18 janv. 2008 à 23:16
Oups je voulais dire
Dim Ligne As Long
Sheets("DC-67 Boucherville").Select
Ligne = (Sheets("DC-67 Boucherville").Range("A65000").End(xlUp).Row)
Sheets("DC-67 Boucherville").Range ("A:N"& Ligne).Copy
Mais ça ne se selectione pas
Dim Ligne As Long
Sheets("DC-67 Boucherville").Select
Ligne = (Sheets("DC-67 Boucherville").Range("A65000").End(xlUp).Row)
Sheets("DC-67 Boucherville").Range ("A:N"& Ligne).Copy
Mais ça ne se selectione pas
avyrex1926
Messages postés
360
Date d'inscription
dimanche 3 décembre 2006
Statut
Membre
Dernière intervention
3 janvier 2012
3
19 janv. 2008 à 14:00
19 janv. 2008 à 14:00
Merci MPi,
Ça fonctionne
Ça fonctionne