Discussion :

[Bobif]

Bonjour, après plusieurs heures de recherches sur google je n'ai pas trouvé solution à mon problème.

Je cherche a parcourir les colonnes d'une même ligne jusqu'a trouver du texte cependant, j'aimerai que cela dépende uniquement de ma premièere colonne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub decal_col()
    Dim col_mere As String, ligne As Integer, name As String
    col_mere = "A"
    ligne = 5
    name = ""
    While name = ""
        Range(col_mere & ligne).Select
        name = ActiveCell.Value
        'col_mere = col_mere +1
    Wend
End Sub

Mon soucis se situe au niveau de la ligne col_mere = col_mere +1 je n'ai pas trouvé de moyen pour la faire marcher étant donné qu'il y a un problème de type.

En attente de vos réponses,
Cordialement,
Bobif.

[mercatog]

Regarde soit la méthode Find de l'objet Range
soit range("XXX").End(xltoright)

Exemple avec la 2

Code :

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

1
2
3
4
5
6
7
8
Dim LaCol As Integer
 
If Range("A5") = "" Then
    LaCol = Range("A5").End(xlToRight).Column
Else
    LaCol = 1
End If
MsgBox LaCol

EDIT, pour ton code en boucle

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Sub Decal_Col()
Dim Col_Mere As Integer, Ligne As Long
 
Col_Mere = 1
Ligne = 5
While Cells(Ligne, Col_Mere) = ""
    Col_Mere = Col_Mere + 1
Wend
 
MsgBox Col_Mere
End Sub

[Bobif]

Merci pour ta réponse, j'avais déjà trouvé cette solution cependant j'aimerai pouvoir garder le paramétrage de la colonne "A" et là est le problème car dans le but de pouvoir modifier cette valeur à tout moment je ne veux pas que l'utilisateur doivent "compter" pour remplacer la colonne par le nombre associé.

Je vais travailler avec ta solution en attendant, encore merci.

Cordialement,
Bobif.

[mercatog]

Si tu es adepte des usines à gaz

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Sub Decal_Col()
Dim Col_Mere As String, Ligne As Long, c As Integer
 
c = 1
Ligne = 5
While Cells(Ligne, c) = ""
    c = c + 1
Wend
 
Col_Mere = Split(Cells(1, c).Address, "$")(1)
MsgBox Col_Mere
End Sub

ou sans boucles

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim LaCol As Integer
Dim Col_Mere As String
 
If Range("A5") = "" Then
    LaCol = Range("A5").End(xlToRight).Column
Else
    LaCol = 1
End If
 
Col_Mere = Split(Cells(1, LaCol).Address, "$")(1)
MsgBox Col_Mere
End Sub

[Bobif]

Merci pour tes réponses je pense que je vais pouvoir me débrouiller avec tout ça

Bonne journée !