Erreur de syntaxe code vba
Résolu
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é ^^.
7 réponses
-
Qu'une chose à dire nickel chrome comme d'habitude :).
Avez vous des idée sur une amélioration potentiel du fichier ?
En tout cas un grand merci à vous. -
Re,
Dsl le but est de pouvoir en fonction de la liste de choix (feuil1) avoir la possibilité de sauvegarder les donnés calculé en colonne x dans le bon emplacement dans la feuille calcul (feuil4).
Je test ton code et vous tiens au courant ^^ -
Contributeurre,
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!!! :-) -
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 ^^ -
ContributeurBonjour,
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,
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 ? -
ModérateurSalut,
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.
