Macro Excel..help
Résolu/Fermé
PlanetGong
Messages postés
55
Date d'inscription
vendredi 27 avril 2007
Statut
Membre
Dernière intervention
1 février 2009
-
8 nov. 2008 à 03:19
PlanetGong Messages postés 55 Date d'inscription vendredi 27 avril 2007 Statut Membre Dernière intervention 1 février 2009 - 8 nov. 2008 à 15:54
PlanetGong Messages postés 55 Date d'inscription vendredi 27 avril 2007 Statut Membre Dernière intervention 1 février 2009 - 8 nov. 2008 à 15:54
A voir également:
- Macro Excel..help
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Si et excel - Guide
- Aller à la ligne excel - Guide
- Word et excel gratuit - Guide
3 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
8 nov. 2008 à 09:08
8 nov. 2008 à 09:08
Bonjour
Si tu ne sais pas quelle colonne ( A à F) sera la + longue:
lig = Range("A1:F65536").Find("*", , xlFormulas, , , xlPrevious).Row
cette formule tient compte d'une cellule avec comme résultat de formule ""
si tu connais la colonne par ex: E
lig=range("E65536").end(xlup).row
Si tu ne sais pas quelle colonne ( A à F) sera la + longue:
lig = Range("A1:F65536").Find("*", , xlFormulas, , , xlPrevious).Row
cette formule tient compte d'une cellule avec comme résultat de formule ""
si tu connais la colonne par ex: E
lig=range("E65536").end(xlup).row
gbinforme
Messages postés
14946
Date d'inscription
lundi 18 octobre 2004
Statut
Contributeur
Dernière intervention
24 juin 2020
4 707
8 nov. 2008 à 09:13
8 nov. 2008 à 09:13
bonjour
Tu peux le faire avec
Avec Cells(1, 1) tu pars de A1 puis tu agrandis du nombre de lignes utilisées et du nombre de colonnes 6 (F)
Tu peux le faire avec
Cells(1, 1).Resize(UsedRange.Rows.Count, 6).Select
Avec Cells(1, 1) tu pars de A1 puis tu agrandis du nombre de lignes utilisées et du nombre de colonnes 6 (F)
PlanetGong
Messages postés
55
Date d'inscription
vendredi 27 avril 2007
Statut
Membre
Dernière intervention
1 février 2009
8 nov. 2008 à 13:11
8 nov. 2008 à 13:11
Salut et merci du coup de main.
Comment le system trouveras la derniere ligne a selectionner ? C'est la seule variable des fichiers que je recois et je ne veux selectionner que les lignes contenant des données (donc de A2 a F??).
Comment le system trouveras la derniere ligne a selectionner ? C'est la seule variable des fichiers que je recois et je ne veux selectionner que les lignes contenant des données (donc de A2 a F??).
PlanetGong
Messages postés
55
Date d'inscription
vendredi 27 avril 2007
Statut
Membre
Dernière intervention
1 février 2009
8 nov. 2008 à 15:54
8 nov. 2008 à 15:54
Merci a GBinforme,
Super efficace.
Bonne journée.
Super efficace.
Bonne journée.
8 nov. 2008 à 13:09
En fait, je recois des fichiers qui ont toujours le meme formatage mais différentes longueurs.
Je veux selectionner toujours les memes colonnes, mais c'est le nombre de lignes qui change.
Je ne veux selectionner que les lignes avec données en commencant par la ligne 2 (donc de A2 jusqu'a F??)
8 nov. 2008 à 13:21
lig = Range("A2:F65536").Find("*", , , , , xlPrevious).Row
donne la ligne de la dernière donnée en ignorant le résultat de formules renvoyant la valeur ""
8 nov. 2008 à 13:52
Quelle est ensuite la commande pour selectionner ? Range="A2:F") & lig).Select ???
Désolé si cela parait stupide mais je débute avec les macro et je me suis attaqué a un projet qui prend plus d'ampleur que je ne pensais !
8 nov. 2008 à 15:35
On a tous débuté un jour! donc, ne culpabilise surtout pas.
OK, je ne t'avais pas donné la solution jusqu'au bout!...
essaies:
Sub ccm_zonevariable()
Dim fin As String
fin = Range("A2:F65536").Find("*", , , , , xlPrevious).Address
Range("A2:" & fin).Select
End Sub
8 nov. 2008 à 15:52
Merci pour ton aide. J'ai finalement pu "bidouiller" avec tes conseils et j'ai réussi. Mon probleme était que les cellules de mes colonnes E & F contenaient une formule retournant "" et donc la macro ces cellules comme non "vide" et les selectionnait.
Ca marche avec
lig = Range ("A6000").End(xlup).Row
Range ("A2:F" & lig).Select
Merci encore...je poste une nouvelle question pour la suite de mon cauchemar !!!