Erreur de syntaxe code vba
Résolu
Fred
-
Fred -
Fred -
Bonjour,
J'ai un code vba mais avec une erreur de syntaxe quelqu'un pourrais t'il y jeter un coup d'oeil ?
code :
Dim lng As Long 'déclare la variable col (COLonne)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
Clng(Split(Range("A1").Value, " ", -1)(0)) + 1 'définit la colonne col
Set dest = Sheets("Calcul").Cells(3, col) 'définit la cellule de destination dest
Range("X5:X9").Copy 'copie la plage B3:B17
dest.PasteSpecial (xlPasteValues) 'colle les valeur dans la celluel dest
Application.CutCopyMode = False 'supprime le clignottement de la copie
End Sub
Merci pour votre aide tj apprécié ^^.
J'ai un code vba mais avec une erreur de syntaxe quelqu'un pourrais t'il y jeter un coup d'oeil ?
code :
Dim lng As Long 'déclare la variable col (COLonne)
Dim dest As Range 'déclare la variable dest (DESTination)
ActiveCell.Select 'enlève le focus au bouton
Clng(Split(Range("A1").Value, " ", -1)(0)) + 1 'définit la colonne col
Set dest = Sheets("Calcul").Cells(3, col) 'définit la cellule de destination dest
Range("X5:X9").Copy 'copie la plage B3:B17
dest.PasteSpecial (xlPasteValues) 'colle les valeur dans la celluel dest
Application.CutCopyMode = False 'supprime le clignottement de la copie
End Sub
Merci pour votre aide tj apprécié ^^.
A voir également:
- Erreur de syntaxe code vba
- Code ascii - Guide
- Code de déverrouillage oublié - Guide
- Code puk bloqué - Guide
- Code activation windows 10 - Guide
- Code blocks - Télécharger - Langages
7 réponses
Salut,
Ce code buggue? Ah bon? Ou ça?
Je plaisante, il y a visiblement plusieurs erreurs. Lorsque ton code plante, vba propose un débogage, clique sur "débogage" et reviens nous dire qu'elle ligne de ton code est surlignée en jaune et quel est le message d'erreur.
Ce code buggue? Ah bon? Ou ça?
Je plaisante, il y a visiblement plusieurs erreurs. Lorsque ton code plante, vba propose un débogage, clique sur "débogage" et reviens nous dire qu'elle ligne de ton code est surlignée en jaune et quel est le message d'erreur.
Re,
Je te remercie pour ton aide, c'est vrai que j'aurai du développer un peu plus ^^.
Le msg d'erreur indique une erreur de compilation : erreur de syntaxe.
C'est la ligne : Clng(Split(Range("A1").Value, " ", -1)(0)) + 1 'définit la colonne col qui est en rouge
la 1ere est elle en jaune.
Besoin d'autre info ?
Je te remercie pour ton aide, c'est vrai que j'aurai du développer un peu plus ^^.
Le msg d'erreur indique une erreur de compilation : erreur de syntaxe.
C'est la ligne : Clng(Split(Range("A1").Value, " ", -1)(0)) + 1 'définit la colonne col qui est en rouge
la 1ere est elle en jaune.
Besoin d'autre info ?
Bonjour,
Ce code est affreux... dis nous plutôt ce que tu veux faire de façon précise;
Au besoin, mettre le classeur sans données confidentielles en pièce jointe (format XL97-2003) sur
http://cijoint.fr/
et coller le lien proposé dans le message de réponse
Ce code est affreux... dis nous plutôt ce que tu veux faire de façon précise;
Au besoin, mettre le classeur sans données confidentielles en pièce jointe (format XL97-2003) sur
http://cijoint.fr/
et coller le lien proposé dans le message de réponse
Re,
Vous trouverez ci-joint le fichier en question.
http://www.cijoint.fr/cjlink.php?file=cj201104/cijy5G2Zlc.xls
SI vous pensez qu'il y a plus simple ou des idées pour l'améliorer je suis preneur ^^
Vous trouverez ci-joint le fichier en question.
http://www.cijoint.fr/cjlink.php?file=cj201104/cijy5G2Zlc.xls
SI vous pensez qu'il y a plus simple ou des idées pour l'améliorer je suis preneur ^^
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
re,
en devinant peut-^tre malgré tout ce que tu voulais faire (je t'avais demandé d'être précis, très sympa ton silence) :-(
voici une proposition
mais je me demande encore qu'est ce que c'était cette macro: 1 C.... énorme par ligne: ne pompe jamais une macro!!! :-)
en devinant peut-^tre malgré tout ce que tu voulais faire (je t'avais demandé d'être précis, très sympa ton silence) :-(
voici une proposition
Private Sub CommandButton1_Click()
Dim district As String
Dim source As Variant
Dim col As Byte 'déclare la variable col (COLonne)
district = Range("A1")
source = Range("X5:X9").Value
With Sheets("calcul")
col = .Rows(1).Find(district, .Range("a1"), xlValues).Column
.Range(.Cells(3, col), .Cells(7, col)) = source
End With
End Sub
mais je me demande encore qu'est ce que c'était cette macro: 1 C.... énorme par ligne: ne pompe jamais une macro!!! :-)
