Problème de variable

[LinC49]

Bonjour à tous,

Mon problème est de pouvoir utiliser une variable utilisant les colonnes, j'ai réussi avec les lignes grâce à se bout de code :

'L = Ligne
L = Workbooks(2).Sheets("Ann 1 EN Serv LTV").Range("F65536").End(xlUp).Row + 1

With Workbooks(2).Sheets("Ann 1 EN Serv LTV")

.Range("A" & L).Value = ComboBSignau.Value

end with

et j'aimerais faire la même manip mais au lieu d'avoir :
.Range("A" & L).Value = ComboBSignau.Value

j'aurais : .Range(colonne & 4).Value = ComboBSignau.Value


Merci pour votre aide

Cordialement

 

[Softmama]

Re : Problème de variable

Bonjour,

Tu peux remplacer ton

Range(Colonne & 4)

par

Cells(4, Colonne)

 

[LinC49]

Oui effectivement j'ai essayé mais je ne sais pas comment initialiser ma variable col, car car a chaque clique sur le bouton col doit prendre + 1

'col = colonne
col = Workbooks(2).Sheets("Ann 1 EN Serv LTV").Cells(4,?????)

With Workbooks(2).Sheets("Ann 1 EN Serv LTV")

.Cells(4, col).Value = ComboBSignau.Value

end with

 

[Softmama]

Re : Problème de variable

Si tu tiens à refaire de la même façon que la ligne L, ça donne ça:

Dim C as Long
'C=Colonne
C = Workbooks(2).Sheets("Ann 1 EN Serv LTV").Range("IV4").End(xltoLeft).Column + 1
With Workbooks(2).Sheets("Ann 1 EN Serv LTV")
.Cells(4,C).Value = ComboBSignau.Value
end with

mais tu peux aussi plus simplement faire en 1 seule instruction:

Workbooks(2).Sheets("Ann 1 EN Serv LTV").Range("IV4").End(xltoLeft)(1,2) = ComboBSignau.Value

 

[LinC49]

Re: Re : Problème de variable

Merci pour ta réponse,
Mais que veut dire .Range("IV4")????

 

[Softmama]

Re : Problème de variable

IV4, ben c'est la colonne IV (la dernière de la feuille), ligne 4... de la même façon que F65536 c'est la colonne F, ligne 65536 (la dernière de la feuille)