Aidez moi svp sur macro excel
Résolu
titine
-
titine -
titine -
Bonjour,
Je fais une macro et j'aimerai que de la cellule A6 tout soit sélectionneé jusqu'à une cellule "Total"; qui est sur la même ligne. Puis que cette sélection s'étend vers le bas jusqu'à une cellule "Total" sur la colonne A.
Merci.
Je fais une macro et j'aimerai que de la cellule A6 tout soit sélectionneé jusqu'à une cellule "Total"; qui est sur la même ligne. Puis que cette sélection s'étend vers le bas jusqu'à une cellule "Total" sur la colonne A.
Merci.
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
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
8 réponses
titine
Je cherche toujours mais je n'est pas de réponse convenable et j'essaye d'approfondir avec vous.
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
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
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
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 ;-)
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
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...
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..
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