Discussion :

[Ben1717]

Bonjour à tous,

Débutant moi aussi j'ai besoin d'effecuer la même action qu'ici avec toutefois une petite subtilité : je voudrais pouvoir choisir la colonne sur laquelle appliquer la macro.

Je suis parti de la proposition de fring, qui fonctionne effectivement parfaitement sur la colonne A mais uniquement sur la colonne A. Je pensais ensuite inclure une variable en récupérant le contenu d'une cellule (A1 par exemple) dans laquelle j'aurais précisé la colonne sur laquelle appliquer la macro (B par exemple).

Malheureusement mes divers essais se sont révélés infructueux, mes connaissances en syntaxe VBA étant ultra limitées !

Merci d'avance pour votre aide et votre indulgence.

[MarcelG]

Bonjour le Forum, Bonjour à toi,

Bienvenu sur ce forum.

Si la cellule A1 contient le n° de colonne à sélectionner, alors tu peux coder

Code :

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

Columns([A1]).Select

(à adapter)

[amnorian]

Obtient la variable colonne par une inputbox et selectionne la colonne que tu veux

Code :

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

1
2
Col = InputBox("Quel colonne ?")
Columns(Col).Select

[gFZT82]

Bonjour,

Voici la proposition de fring adaptée.
Tu peux la coupler avec les propositions de amnorian et MarcelG.

Code :

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

1
2
3
4
5
6
7
8
9
Sub test()
Dim i As Long, Col As Long
    Col = 3 'Exemple avec colonne C
    With Sheets("Feuil1") 'A adapter
        For i = 1 To .Cells(.Rows.Count, Col).End(xlUp)(-1).Row
            If Cells(i, Col).Offset(1, 0) = "" Then Cells(i, Col).Offset(1, 0) = Cells(i, Col)
        Next
    End With
End Sub

Cordialement

[Ben1717]

Merci à vous 3 pour vos réponses.

J'ai repris le code de gFZT82 en y incluant l'inputbox d'amnorian, ça marche parfaitement.

Pour m'entraîner j'ai simplement modifié le code pour que le nom de l'onglet actif soit récupéré.

Voilà ce que ça donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test5()
 
Dim i As Long, Col As Long, Onglet As String
 
    Col = InputBox("Sélectionner Colonne")
Columns(Col).Select
 
 Onglet = ActiveSheet.Name
 
   With Sheets(Onglet)
 
    For i = 1 To .Cells(.Rows.Count, Col).End(xlUp)(-1).Row
    If Cells(i, Col).Offset(1, 0) = "" Then Cells(i, Col).Offset(1, 0) = Cells(i, Col)
        Next
    End With
End Sub

En revanche je n'ai pas réussi à intégrer le code de MarcelG, à quel endroit doit il être utilisé ? Je l'avais inséré après Dim i% dans le code de fring mais sans succès.
Nécessite-t-il de modifier le code qui suit ?

Encore merci pour votre aide.

[MarcelG]

Bonjour Ben, Bonjour le Forum,

Ici, tu utilises la méthode

Code :

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

Cells

Son 2ème argument désigne le numéro de colonne.

En utilisant la valeur de la cellule A1, tu peux remplacer ta variable

Code :

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

Col

par

Code :

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

[A1]

(à adapter) directement dans ta formule.

Ainsi

Code :

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

Cells(i, Col).Offset(1, 0) = "" Then Cells(i, Col).Offset(1, 0) = Cells(i, Col)

deviendrait

Code :

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

Cells(i, [A1]).Offset(1, 0) = "" Then Cells(i, [A1]).Offset(1, 0) = Cells(i, [A1])

Pour information, l'écriture

Code :

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

[A1]

signifie

Code :

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

Evaluate(Range("A1"))

[Ben1717]

MarcelG merci pour ces infos, je vais plancher là-dessus ce week-end !

[Sempre5]

Bonjour à tous!

Je me permets de rebondir sur ce vieux message car je cherche à utiliser cette macro qui fonctionne à merveille sur une colonne.

Je voudrais l'appliquer aux colonnes de A à U et pas simplement à la colonne 3

J'ai tenté quelques manipulations mais j'ai toujours une erreur.

Est-ce que l'un d'entre vous pourrait m'aider?

Par avance merci et bonne soirée