Erreur de syntaxe code vba Résolu/Fermé

Question

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é ^^.

pijaku · Answer

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.

Fred · Answer

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 ?

michel_m · Answer

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

Fred · Answer

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 ^^

michel_m · Answer

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

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!!! :-)

Fred · Answer

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 ^^

Fred · Answer

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.

Erreur de syntaxe code vba

7 réponses

Discussions similaires