Rechercher : dans
Par :

Sélectionnez une colonne en entier sous VBA

Dernière réponse le 13 jun 2008 à 12:45:09 Gigi0001, le 12 jun 2008 à 16:43:33 
 Signaler ce message aux modérateurs

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!

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Sélectionnez une colonne en entier sous VBA » dans :
[VBA] RechercheV Polyvalente VoirRECHERCHE POLYVALENTE Pour les accros et les inconditionnels des fonctions d'Excel, avant de crier au scandale, lisez les quelques lignes suivantes. La RechercheV d'origine a beaucoup de limites: La colonne de la donnée doit être avec un offset...
[Excel] Trier sur les lignes (horizontalement), non les colonnes VoirMicrosoft Excel est configuré par défaut pour réaliser un tri sur les colonnes (Données / Trier). Pour trier les données horizontalement, il suffit de sélectionner les données à trier, puis de cliquer sur le bouton Options et, dans le panneau...

1

LeGrosWinnie, le 12 jun 2008 à 16:45:26

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).

Répondre à LeGrosWinnie

2

Gigi0001, le 12 jun 2008 à 16:50:42

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,

Répondre à Gigi0001

3

Gigi0001, le 12 jun 2008 à 16:53:15

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.

Répondre à Gigi0001

4

aquarelle, le 12 jun 2008 à 20:02:54

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
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."

Répondre à aquarelle

5

GIGI0001, le 13 jun 2008 à 09:28:55

Merci beaucoup Aquarelle!!!

Répondre à GIGI0001

6

 aquarelle, le 13 jun 2008 à 12:45:09

Bonjour,
De rien et ravie d'avoir pu t'aider.
Bonne continuation et bonne journée
"Pour trouver une solution à ses problèmes, il faut s'en donner la peine."

Répondre à aquarelle