Discussion :

[carpediem2807]

Bonjour, je n'arrive pas à coller des valeurs dans une colonne. Lorsque je fais cela par vba, il indique cellule vide au lieu de ma valeur.

Je veux coller des valeurs d'un fichier différent dans une colonne spécifique. Mais lorsque je fais l'espion pour voir ce qu'il fais , il indique cellule vide au lieu de la valeur. LA cellule vide est dans mon fichier qui va recevoir le valeur. Car dans mon fichier ou je prends les valeurs, la valeurs est bien indiqué dans l'espion.

Auriez-vous une idée de comment faire pour enrayer ce problème qui je suis sur est mineur

Merci

Marie

[Gamal le Celte]

Dans une cellule vide, une qui peut servir de data. Dans ton code tu donnes à cette cellule la fonction suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1").Select ' par exemple
ActiveCell.FormulaR1C1 = "=COUNTA(C[+1])"

Cette fonction donne dans la cellule le nombre de valeur dans une colonne. Attention tu ne doit pas avoir de cellule vide dans tes donnée. Entre crochet tu donnes une coordonée relative.

Ensuite tu as le nombre d'enregistrement dans une variable. Ici ma formule est dans la cellule (1,1)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

nbrec = Cells(1, 1).Value

Cela te donnes le nombre de ligne dans une colenne. Tu y ajoute 1 et tu as le départ de la prochaine donnée.
Lorsque tu as fini tu efface le contenu de la cellule "data".

[fring]

Bonjour tlm,

@ Carpediem : tu peux essayer d'expliquer ton problème autrement parce que là je ne comprend ce que tu veux faire et où se situe le problème.

@ gamal : pour trouver la première ligne vide de la colonne A, la syntaxe est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DerLigne = Cells(Rows.Count, 1).End(xlUp)(2).Row

[carpediem2807]

Merci , mais entre temps, mon problème à changer et je n'ai pas fais de nouvelle discussion, j'ai juste modifié celle que j'avais fais.

Mais ce que j'ai fini par faire et presque pareil à toi , merci

Marie