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.
Configuration: Windows XP Internet Explorer 6.0
8 réponses
-
-
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 -
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 -
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 -
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
-
-
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...-
- 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..
-
-
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
-
Merci beaucoup!!
Maintenant, j'aimerai pourvoir le tirer jusqu'à Total toujour dans la ligne 6.*
Range("F65536").Select
Range("F6", Selection.End(xlUp)).Select
