Aidez moi svp sur macro excel
Résolu/Fermé
A voir également:
- Aidez moi svp sur macro excel
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Calculer une moyenne sur excel - Guide
- Si et excel - Guide
- Comment aller à la ligne sur excel - Guide
8 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
18 déc. 2008 à 16:09
18 déc. 2008 à 16:09
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
18 déc. 2008 à 16:30
18 déc. 2008 à 16:30
forcément j'avais pas vu que ton tableau commencait à la cellule A6 xD
essaye ca
Dim i As Integer
Dim j As Integer
i = 1
j = 6
Range("A6").Select
While Cells(j, i).Value <> "total"
i = i + 1
Wend
strad = Cells(j, i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
While Cells(j, 1) <> "total"
j = j + 1
Wend
strad = Cells(j, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
End Sub
essaye ca
Dim i As Integer
Dim j As Integer
i = 1
j = 6
Range("A6").Select
While Cells(j, i).Value <> "total"
i = i + 1
Wend
strad = Cells(j, i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
While Cells(j, 1) <> "total"
j = j + 1
Wend
strad = Cells(j, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
End Sub
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
18 déc. 2008 à 15:55
18 déc. 2008 à 15:55
Salut!
s'agit-il d'un tableau non interrompu après lequel il y a une ligne / colonne vide ?
si c'est le cas tu peux essayer ce code
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ca te selectionne de la cellule A1 jusqu'à la cellule A quelque chose (la dernière où il y a un texte avant une case vide)
puis ça fait la même chose en direction du bas
je sais pas si j'ai été clair...n'hésites pas
s'agit-il d'un tableau non interrompu après lequel il y a une ligne / colonne vide ?
si c'est le cas tu peux essayer ce code
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Range(Selection, Selection.End(xlDown)).Select
ca te selectionne de la cellule A1 jusqu'à la cellule A quelque chose (la dernière où il y a un texte avant une case vide)
puis ça fait la même chose en direction du bas
je sais pas si j'ai été clair...n'hésites pas
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
18 déc. 2008 à 16:20
18 déc. 2008 à 16:20
Hi
Je viens de tester un truc
Dim i As Integer
Dim j As Integer
i = 1
j = 1
Range("A1").Select
While Cells(j, i).Value <> "total"
i = i + 1
Wend
strad = Cells(j, i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
While Cells(j, 1) <> "total"
j = j + 1
Wend
strad = Cells(j, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
c'est peut etre pas le plus simple mais ça marche chez moi
Je viens de tester un truc
Dim i As Integer
Dim j As Integer
i = 1
j = 1
Range("A1").Select
While Cells(j, i).Value <> "total"
i = i + 1
Wend
strad = Cells(j, i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
While Cells(j, 1) <> "total"
j = j + 1
Wend
strad = Cells(j, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
c'est peut etre pas le plus simple mais ça marche chez moi
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
18 déc. 2008 à 16:31
18 déc. 2008 à 16:31
Après si ton "total" est écrit avec le T en majuscule, il faut que tu le change dans le code vba pour que ça marche ;-)
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
>
titine
18 déc. 2008 à 16:34
18 déc. 2008 à 16:34
et donc ça roule maintenant ?
titine
>
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
18 déc. 2008 à 16:35
18 déc. 2008 à 16:35
Non sa bloque entre le wend!!
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
>
titine
18 déc. 2008 à 16:36
18 déc. 2008 à 16:36
mais t'as pris le deuxième code corrigé que je t'ai posté ? (j'avais pas vu que ton tableau commencait en A6)
je te le remet si t'as sauté le message
Dim i As Integer
Dim j As Integer
i = 1
j = 6
Range("A6").Select
While Cells(j, i).Value <> "Total"
i = i + 1
Wend
strad = Cells(j, i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
While Cells(j, 1) <> "Total"
j = j + 1
Wend
strad = Cells(j, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
End Sub
je te le remet si t'as sauté le message
Dim i As Integer
Dim j As Integer
i = 1
j = 6
Range("A6").Select
While Cells(j, i).Value <> "Total"
i = i + 1
Wend
strad = Cells(j, i).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
While Cells(j, 1) <> "Total"
j = j + 1
Wend
strad = Cells(j, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)
Range(Selection, strad).Select
End Sub
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 310
18 déc. 2008 à 16:56
18 déc. 2008 à 16:56
La solution qu'a proposé Mike 31 marche chez lui...
La solution qu' a propsé Nikomania marche chez lui...
La solution que j'ai proposé marche chez moi...
Donc...
La solution qu' a propsé Nikomania marche chez lui...
La solution que j'ai proposé marche chez moi...
Donc...
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
>
titine
19 déc. 2008 à 09:17
19 déc. 2008 à 09:17
heu...il bloque...
en général quand ça bloque c'est que t'as une boucle sans fin..mais dans ce cas précis elle ne peut pas être sans fin vu que le nombre de colonnes et de lignes ne sont pas illimitées dans Excel...donc il te mettra forcément un message d'erreur quand il voudra tester une cellule qui n'existe pas...
a la limite envoie moi ton fichier par mail que j'y jette un coup d'oeil..
en général quand ça bloque c'est que t'as une boucle sans fin..mais dans ce cas précis elle ne peut pas être sans fin vu que le nombre de colonnes et de lignes ne sont pas illimitées dans Excel...donc il te mettra forcément un message d'erreur quand il voudra tester une cellule qui n'existe pas...
a la limite envoie moi ton fichier par mail que j'y jette un coup d'oeil..
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
19 déc. 2008 à 09:28
19 déc. 2008 à 09:28
question con...t'es sûr que tes cellules "Total" ne contiennent que "Total" dedans ? vu que c'est une exportation, vérifie que t'as pas d'espace avant ou un truc du style
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
22
>
titine
19 déc. 2008 à 09:34
19 déc. 2008 à 09:34
et si t'appuies sur F5 ?
titine
>
nikomania
Messages postés
194
Date d'inscription
samedi 4 octobre 2008
Statut
Membre
Dernière intervention
1 décembre 2009
19 déc. 2008 à 09:59
19 déc. 2008 à 09:59
C'est vrai avec F5 ça marche nickel!!
Merci!!
Merci!!
Merci beaucoup!!
Maintenant, j'aimerai pourvoir le tirer jusqu'à Total toujour dans la ligne 6.*
Range("F65536").Select
Range("F6", Selection.End(xlUp)).Select
Maintenant, j'aimerai pourvoir le tirer jusqu'à Total toujour dans la ligne 6.*
Range("F65536").Select
Range("F6", Selection.End(xlUp)).Select
18 déc. 2008 à 16:12