VBA sélectionner une colonne nommée tableau
Résolu/Fermé
dtirtaine
Messages postés
6
Date d'inscription
lundi 29 juin 2009
Statut
Membre
Dernière intervention
27 novembre 2009
-
27 nov. 2009 à 13:47
dtirtaine Messages postés 6 Date d'inscription lundi 29 juin 2009 Statut Membre Dernière intervention 27 novembre 2009 - 27 nov. 2009 à 15:49
dtirtaine Messages postés 6 Date d'inscription lundi 29 juin 2009 Statut Membre Dernière intervention 27 novembre 2009 - 27 nov. 2009 à 15:49
Bonjour à tous,
Pfff, je suis embêtée avec une broutille : en vba, dans un tableau sous excel 2007, comment sélectionner une colonne dont j'ai donné un nom de type "Gravité" (ex, Gravité = S12 à S485 et ça évolue) ? Mon but étant de sélectionner la cellule au carrefour de cette fameuse colonne et de la ligne où se trouve ma cellule active. Je me demande si j'ai été claire ?
Bref, je sais le faire sur la colonne "S" : Range("S" & ActiveCell.Row).Select, le problème est que, si j'ajoute une colonne, mon code ne fonctionne plus !
Merci pour votre aide !
Delphine.
Pfff, je suis embêtée avec une broutille : en vba, dans un tableau sous excel 2007, comment sélectionner une colonne dont j'ai donné un nom de type "Gravité" (ex, Gravité = S12 à S485 et ça évolue) ? Mon but étant de sélectionner la cellule au carrefour de cette fameuse colonne et de la ligne où se trouve ma cellule active. Je me demande si j'ai été claire ?
Bref, je sais le faire sur la colonne "S" : Range("S" & ActiveCell.Row).Select, le problème est que, si j'ajoute une colonne, mon code ne fonctionne plus !
Merci pour votre aide !
Delphine.
A voir également:
- Vba sélectionner une colonne par son nom
- Déplacer une colonne excel - Guide
- Formule somme excel colonne - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Figer une colonne excel - Guide
5 réponses
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
295
27 nov. 2009 à 14:11
27 nov. 2009 à 14:11
essaie ça
pour avancer
pour avancer
Sub test() Dim ligne As Long Dim C As Variant ligne = ActiveCell.Row For Each C In Range("gravité") If ligne = C.Row Then C.Select Exit For End If Next End Sub
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
27 nov. 2009 à 14:27
27 nov. 2009 à 14:27
bonjour
sans boucle
if activecell.row>=12 and activecell.row<=485 then
cells(ActiveCell.Row,range("gravite").column).select
else
msgbox "cellule active hors zone",vbcritical
end if
sans boucle
if activecell.row>=12 and activecell.row<=485 then
cells(ActiveCell.Row,range("gravite").column).select
else
msgbox "cellule active hors zone",vbcritical
end if
Bidouilleu_R
Messages postés
1181
Date d'inscription
mardi 27 mai 2008
Statut
Membre
Dernière intervention
12 juillet 2012
295
27 nov. 2009 à 14:36
27 nov. 2009 à 14:36
trop fort michel !!!
Mais avoue que le mien il est bien....
Bon week end
R
Mais avoue que le mien il est bien....
Bon week end
R
michel_m
Messages postés
16602
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 313
27 nov. 2009 à 14:47
27 nov. 2009 à 14:47
Wouai,Wouai, Ah queuuuue, il est bô,bô,bô, bôôô! ;-)))
Bon WE à toi aussi et à bientôt pour de nouvelles z'aventures§
Bon WE à toi aussi et à bientôt pour de nouvelles z'aventures§
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
dtirtaine
Messages postés
6
Date d'inscription
lundi 29 juin 2009
Statut
Membre
Dernière intervention
27 novembre 2009
27 nov. 2009 à 15:49
27 nov. 2009 à 15:49
Merci les gars, vous êtes super, ça fonctionne au poil !
Merci aussi à Comment ça marche.net pour ces supers forums !
Bonne journée
Merci aussi à Comment ça marche.net pour ces supers forums !
Bonne journée