Discussion :

[ouskel'n'or]

Alors ça veut dire que tu n'as rien dans Cel2.Offset(Compteur2, 21).Value
Tu devrais vérifier tes offsets.

Cells(NoLigne,NoCol).Offset(0) c'est la cellule Cells(NoLigne,NoCol)
Cells(NoLigne,NoCol).Offset(0,1) c'est la cellule Cells(NoLigne,NoCol+1)
etc.

En pas à pas (F8) ou avec debug.print, affiche le N° de ligne + l'offset de la ligne et, sur la ligne du dessous, le N° de colonne et l'offset.
Enfin, vérifie que ça colle avec l'adresse de la cellule que tu veux copier
A+

[idir.17]

Je suis dans l'impasse il lis les noms en
Cel.Offset(2) puis Cel.Offset(3) etc
Mais des que je lui mets
Cel.Offset(2,1) et Cel.Offset(3,1), il ne lis pas les chiffres qui sont a coté.

JE NE COMPRENDS PAS.....
VBA quand tu nous tiens

[ouskel'n'or]

Pour être sûr de ce que tu dis essaie ces lignes dans ton code

Code :

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

1
2
Cel.Offset(2,1).select
exit sub

et va voir dans ta feuille Excel
A+

[idir.17]

Aye j'ai trouvé le problème grâce à ouskel'n'or. Un grand mais alors un très très grand Merci à toi.
J'explique la solution.
En gros, au niveau de la feuille ou j'essayais de lire Cel.Offset(i,1) qui sont les valeurs de la colonne C. Le programme ne me disait qu'il n'y avait rien. Or je ne comprenais pas pourquoi puisque moi même je pouvais voir la valeur.

Alors, j'ai decide d'écrire dans cette colonne qui est censé être vide. Donc j'ai mis:

Cel.Offset(i,1).Value=1

Et alors la , SURPRISE.... Le programme me les a écrites dans la colonne D.
Et bien en fait comme sur les lignes 1 et 2 les colonnes A,Bet C étaient fusionnées, il n'arrivait plus à lire la colonne C.
Donc merci à ouskel'n'or et a tout ceux qui m'ont aidé.

[ouskel'n'or]

Tout ça pour ça !