Sélectionnez une colonne en entier sous VBA Résolu/Fermé

Question

Bonjour,

Je suis débutant en VBA mais j'espère pas pour longtemps! Toujours est-il que je bloque pour selectionner automatiquement une colonne (A) de la ligne 1 à la ligne i (sachant que i+1 = "" ou 0).

La subtilité de mon problème est le suivant:
Entre la cellule A1 et la cellule A999, il peut y avoir des cellules vides. j'ai donc besoin de trouvez une macro qui ne s'arrete pas à la première celulle vide rencontré mais jusqu'à la fin du tableau.
Ensuite, je veux à partir de cette selection faire des calculs. Disons une somme.

Merci des renseignements que vous pourrez m'apportez!

aquarelle · Accepted Answer

Bonsoir,
Essaie avec cette macro :
Sub SelectionColonneA()
Dim x As Long
  
x = Range("A65536").End(xlUp).Row
  
Range("A1" & ":" & "A" & x).Select

End Sub

Bonne soirée

LeGrosWinnie · Answer

Il te faut un repère autre qu'une cellule vide...

Je ne vois pas le souci pour sélectionner une colonne...c'est simplement : 

Range("A1:A999").Select

Biensûr tu peux mettre ce que tu veux dans Range :
Range(Cells(1,1),Cells(1,65536).Select
Ça sélectionnera toute la colonne A (sous presque toutes les version d'Excel sauf la 2007).

Gigi0001 · Answer

Ok.

En faite, je vais recevoir Toutes les semaines un fichier dans lesquels le nombre de ligne changera mais pas le nombre de colonne.
Donc, dans une semaine, le tableau ne s'arretera pas à A999 mais A1555.
Le point de repère c'est que la dernière cellule vide se trouve sur une ligne de cellule vide, contrairement aux lignes précédentes (car c'est un tableau de donnée).
Merci pour ton éclairage,

Gigi0001 · Answer

D'ailleurs, j'ai trouver quelque chose sur "Comment ca marche mais pour selectionner des lignes:

Sub Selection()

Dim i As Integer, fin As Integer
Dim sel As String
sel = ""
    ActiveCell.SpecialCells(xlLastCell).Select
    fin = ActiveCell.Row
    Range("A1").Select
    For i = 1 To fin
        If Range("A" & i).Value <> 0 Then
           sel = sel & i & ":" & i & ","
        End If
    Next
    sel = Left(sel, Len(sel) - 1)
    Range(sel).Select
'        With Selection.Interior
'           .ColorIndex = 6
'           .Pattern = xlSolid
'        End With
End Sub

cela correspond à ce que je veux à la différence qu'il ne s'agit pas de selection de ligne mais d'une colonne + il y a des cellules vides dans la colonne.

GIGI0001 · Answer

Merci beaucoup Aquarelle!!!

Sélectionnez une colonne en entier sous VBA

5 réponses

Discussions similaires