Discussion :

[renaudjean]

Bonjour,

je cherche à obtenir sur une colonne, à partir de la 3ème cellule : le résultat en valeur d'une fonction sur la cellule dans la colonne de droite mais je ne fais que copier ma 3ème cellule.

Code :

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

1
2
Range(TxtColumnName & "3") = Range(TxtColumnName & "3").Offset(0, 1)
                Range(TxtColumnName & "3", Range(TxtColumnName & "3").Range(TxtColumnName & "3:" & TxtColumnName & IntNbLine)).FillDown

Comment m'y prendre s'il vous plaît ?

[Denis la Malice]

Bonjour,
pour qu'on puisse t'aider, il faut que l'on comprenne ce que tu veux faire.

On va découper ton problème en éléments simples.

Première ligne de code :

Code :

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

Range(TxtColumnName & "3") = Range(TxtColumnName & "3").Offset(0, 1)

Admettons que TxtColumnName vaille "C", alors ce qui est exécuté est :

Code :

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

Range("C3") = Range("D3")

Ce qui est l'équivalent de :

Code :

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

Range("C3") = Range("D3").Value

Même s'il y avait une formule dans D3, il y a maintenant une valeur dans C3.

Deuxième ligne :

Code :

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

Range(TxtColumnName & "3", Range(TxtColumnName & "3").Range(TxtColumnName & "3:" & TxtColumnName & IntNbLine)).FillDown

Admettons que TxTColumnName = "C" et IntNbLine = 10, alors ce qui est exécuté est :

Code :

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

Range("C3", Range("C3").Range("C3:C10")).FillDown

Ce qui est équivalent à :

Code :

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

Range("C3:E12").FillDown

Ce qui recopie la première cellule de la plage (C3 qui est la valeur de C4) dans le reste de la plage (jusqu'à E12).

... mais je ne fais que copier ma 3ème cellule.

Oui, c'est ce que tu fais, mais je n'ai pas compris ce que tu voulais faire.
Suggestion : tu peux utiliser Cells(Ligne, Colonne)
Par exemple :

Code :

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

Cells(3, Colonne) = Cells(3, Colonne + 1)

C'est souvent plus lisible.