Pb dans code VBA
Résolu
jojoe85
Messages postés
30
Date d'inscription
Statut
Membre
Dernière intervention
-
jojoe85 Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
jojoe85 Messages postés 30 Date d'inscription Statut Membre Dernière intervention -
Coucou
j'ai un probleme dans cette ligne mais je ne comprend pas pourkoi
pourriez vous m'aider
merci
FL1.Range(""" & firstaddress & ":" & FL1.firstaddress.column + 3 & FL1.firstaddress.row & """).Copy _
Destination:=FL2.Range("A" & FL2.Range("A1"). _
SpecialCells(xlCellTypeLastCell).Row + 1)
j'ai un probleme dans cette ligne mais je ne comprend pas pourkoi
pourriez vous m'aider
merci
FL1.Range(""" & firstaddress & ":" & FL1.firstaddress.column + 3 & FL1.firstaddress.row & """).Copy _
Destination:=FL2.Range("A" & FL2.Range("A1"). _
SpecialCells(xlCellTypeLastCell).Row + 1)
A voir également:
- Pb dans code VBA
- Code ascii - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Comment déverrouiller un téléphone quand on a oublié le code - Guide
- Code blocks - Télécharger - Langages
2 réponses
Salut,
Evites de mélanger les symboles addition ( + ) et les et commerciaux ( & ).
En effet :
la concatenation de chaine VBA se fait AVEC le & et le +, d'ou risque d'erreur lors de l'execution par l'interpreteur.
Donc pour solutionner ton source je mettrais entre parenthèses les additions .
Soit :
FL1.Range(""" & firstaddress & ":" & (FL1.firstaddress.column + 3) & FL1.firstaddress.row & """).Copy _
Destination:=FL2.Range("A" & (FL2.Range("A1"). _
SpecialCells(xlCellTypeLastCell).Row + 1))
Essayes et tien nous au courant...
a+
Evites de mélanger les symboles addition ( + ) et les et commerciaux ( & ).
En effet :
la concatenation de chaine VBA se fait AVEC le & et le +, d'ou risque d'erreur lors de l'execution par l'interpreteur.
Donc pour solutionner ton source je mettrais entre parenthèses les additions .
Soit :
FL1.Range(""" & firstaddress & ":" & (FL1.firstaddress.column + 3) & FL1.firstaddress.row & """).Copy _
Destination:=FL2.Range("A" & (FL2.Range("A1"). _
SpecialCells(xlCellTypeLastCell).Row + 1))
Essayes et tien nous au courant...
a+
