Discussion :

[LinC49]

Bonjour à tous,

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

Code :

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

1
2
3
4
5
'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 :

Code :

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

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

j'aurais :

Code :

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

.Range(colonne & 4).Value = ComboBSignau.Value

Merci pour votre aide

Cordialement

[Philippe Tulliez]

Bonjour,
Deux options possibles.
C représentant le n° de colonne. chr(65) = "A", chr(66) = "B" etc ...

Code :

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

1
2
 
Range(Chr(64 + C) & 10) = ComboBSignau.Value

ou

Code :

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

Cells(10, c) = ComboBSignau.Value

[LinC49]

Merci corona pour ta réponse.

j'ai bien pensé à utiliser

Code :

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

Cells(10, c) = ComboBSignau.Value

mais je ne sais pas comment initialiser ma variable C pour qu' à chaque clique sur le bouton c fasse + 1

[mercatog]

C représentant le n° de colonne. chr(65) = "A", chr(66) = "B" etc ...

Code :

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

Range(Chr(64 + C) & 10) = ComboBSignau.Value

ceci n'étant valable que jusqu'à la colonne Z! utiliser Cells(Rw, Cl) sera le mieux.

Pour chercher la cellule vide en ligne 10

Code :

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

1
2
3
4
5
6
Dim c As Integer
 
With Workbooks(2).Sheets("Ann 1 EN Serv LTV")
   c = .Cells(10, .Columns.Count).End(xlToLeft).Column + 1
   .Cells(10, c).Value = "toto"
End With

[LinC49]

Merci beaucoup sa fonctionne !