Sélectionnez une colonne en entier sous VBA
Résolu/Fermé
Gigi0001
Messages postés
9
Date d'inscription
jeudi 12 juin 2008
Statut
Membre
Dernière intervention
13 juin 2008
-
12 juin 2008 à 16:43
mat - 27 janv. 2017 à 15:51
mat - 27 janv. 2017 à 15:51
A voir également:
- Vba range colonne entière
- Déplacer une colonne excel - Guide
- Capture d'écran page entière - Guide
- Colonne word - Guide
- Additionner colonne excel - Guide
- Excel colonne a disparue ✓ - Forum Excel
5 réponses
aquarelle
Messages postés
7140
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
25 mars 2024
1 302
12 juin 2008 à 20:02
12 juin 2008 à 20:02
Bonsoir,
Essaie avec cette macro :
Bonne soirée
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
Messages postés
43
Date d'inscription
lundi 24 avril 2006
Statut
Membre
Dernière intervention
16 janvier 2012
15
12 juin 2008 à 16:45
12 juin 2008 à 16:45
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).
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
Messages postés
9
Date d'inscription
jeudi 12 juin 2008
Statut
Membre
Dernière intervention
13 juin 2008
2
12 juin 2008 à 16:50
12 juin 2008 à 16:50
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,
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
Messages postés
9
Date d'inscription
jeudi 12 juin 2008
Statut
Membre
Dernière intervention
13 juin 2008
2
12 juin 2008 à 16:53
12 juin 2008 à 16:53
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.
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.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Merci beaucoup Aquarelle!!!
aquarelle
Messages postés
7140
Date d'inscription
dimanche 8 avril 2007
Statut
Modérateur
Dernière intervention
25 mars 2024
1 302
13 juin 2008 à 12:45
13 juin 2008 à 12:45
Bonjour,
De rien et ravie d'avoir pu t'aider.
Bonne continuation et bonne journée
De rien et ravie d'avoir pu t'aider.
Bonne continuation et bonne journée
12 janv. 2013 à 14:00