Bonjour à tous,
Question double !
1°) je voudrais appliquer un traitement (formatage) à la totalité de la plage
utilisée sur une feuille
Quel code utiliser pour sélectionner la plage comprise entre A1 et la
dernière cellule contenant une valeur dans une feuille (dernière ligne et
dernière colonne occupée !)
2°) je voudrais ensuite appliquer ce même traitement à l'ensemble des
feuilles du classeur
Là encore quelqu'un pourrait-il m'indiquer le code ?
Merci pour votre aide
Domi
Bonjour à tous,
Question double !
1°) je voudrais appliquer un traitement (formatage) à la totalité de la plage
utilisée sur une feuille
Quel code utiliser pour sélectionner la plage comprise entre A1 et la
dernière cellule contenant une valeur dans une feuille (dernière ligne et
dernière colonne occupée !)
2°) je voudrais ensuite appliquer ce même traitement à l'ensemble des
feuilles du classeur
Là encore quelqu'un pourrait-il m'indiquer le code ?
Merci pour votre aide
Domi
Bonjour à tous,
Question double !
1°) je voudrais appliquer un traitement (formatage) à la totalité de la plage
utilisée sur une feuille
Quel code utiliser pour sélectionner la plage comprise entre A1 et la
dernière cellule contenant une valeur dans une feuille (dernière ligne et
dernière colonne occupée !)
2°) je voudrais ensuite appliquer ce même traitement à l'ensemble des
feuilles du classeur
Là encore quelqu'un pourrait-il m'indiquer le code ?
Merci pour votre aide
Domi
Salut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Salut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Salut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Bonjour Daniel,
Si tu permets, j'aimerais ajouter un petit détail à ta présentation.
A ) Quelle la dernière cellule recherchée dans la feuille ?
1 - Celle qui contient une donnée (valeur) ?
2 - Celle qui contient une formule ?
Dans ce dernier cas (formule), il arrive que certaines formules
retourne "" et non pas une valeur. Il faut porter une attention
particulière au paramètre LookIn de la méthode "Find".
Si on désire trouver la dernière cellule occupée soit par une formule
ou par une valeur, LookIn:=XlFormulas , si on désire trouver la dernière
cellule occupée par une Valeur, LookIn:=XlValues
B ) Le paramètre "SearchOrder" doit aussi être renseigner. Certains tableaux
n'ont pas nécessairement la forme rectangulaire ou la dernière colonne
ou ligne ne contient pas nécessairement des données dans chacune des
cellules de la plage... Fais quelques tests, tu verras !
C ) Si on fait une boucle sur plusieurs feuilles, tu as déjà testé ces lignes
d'erreur, si la feuille est vierge, une erreur de type 91 est retournée,
il est prudent d'utiliser le "On error resume next" en début de boucle.
Le temps me presse .... à plus tard !
Pour trouver la dernière ligne :
with worksheets("Feuil1")
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End with
Pour trouver la dernière colonne :
With Worksheets("Feuil1")
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End with
Bonjour Daniel,
Si tu permets, j'aimerais ajouter un petit détail à ta présentation.
A ) Quelle la dernière cellule recherchée dans la feuille ?
1 - Celle qui contient une donnée (valeur) ?
2 - Celle qui contient une formule ?
Dans ce dernier cas (formule), il arrive que certaines formules
retourne "" et non pas une valeur. Il faut porter une attention
particulière au paramètre LookIn de la méthode "Find".
Si on désire trouver la dernière cellule occupée soit par une formule
ou par une valeur, LookIn:=XlFormulas , si on désire trouver la dernière
cellule occupée par une Valeur, LookIn:=XlValues
B ) Le paramètre "SearchOrder" doit aussi être renseigner. Certains tableaux
n'ont pas nécessairement la forme rectangulaire ou la dernière colonne
ou ligne ne contient pas nécessairement des données dans chacune des
cellules de la plage... Fais quelques tests, tu verras !
C ) Si on fait une boucle sur plusieurs feuilles, tu as déjà testé ces lignes
d'erreur, si la feuille est vierge, une erreur de type 91 est retournée,
il est prudent d'utiliser le "On error resume next" en début de boucle.
Le temps me presse .... à plus tard !
Pour trouver la dernière ligne :
with worksheets("Feuil1")
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End with
Pour trouver la dernière colonne :
With Worksheets("Feuil1")
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End with
Bonjour Daniel,
Si tu permets, j'aimerais ajouter un petit détail à ta présentation.
A ) Quelle la dernière cellule recherchée dans la feuille ?
1 - Celle qui contient une donnée (valeur) ?
2 - Celle qui contient une formule ?
Dans ce dernier cas (formule), il arrive que certaines formules
retourne "" et non pas une valeur. Il faut porter une attention
particulière au paramètre LookIn de la méthode "Find".
Si on désire trouver la dernière cellule occupée soit par une formule
ou par une valeur, LookIn:=XlFormulas , si on désire trouver la dernière
cellule occupée par une Valeur, LookIn:=XlValues
B ) Le paramètre "SearchOrder" doit aussi être renseigner. Certains tableaux
n'ont pas nécessairement la forme rectangulaire ou la dernière colonne
ou ligne ne contient pas nécessairement des données dans chacune des
cellules de la plage... Fais quelques tests, tu verras !
C ) Si on fait une boucle sur plusieurs feuilles, tu as déjà testé ces lignes
d'erreur, si la feuille est vierge, une erreur de type 91 est retournée,
il est prudent d'utiliser le "On error resume next" en début de boucle.
Le temps me presse .... à plus tard !
Pour trouver la dernière ligne :
with worksheets("Feuil1")
DerLig = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious).Row
End with
Pour trouver la dernière colonne :
With Worksheets("Feuil1")
DerCol = .Cells.Find(What:="*", _
LookIn:=xlFormulas, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlPrevious).Column
End with
Bonjour FFO
Il faut se méfier de xlCellTypeLastCell. Une cellule effacée ou vide mais
formatée peut fausser le résultat.
Cordialement.
DanielSalut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Bonjour FFO
Il faut se méfier de xlCellTypeLastCell. Une cellule effacée ou vide mais
formatée peut fausser le résultat.
Cordialement.
Daniel
Salut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Bonjour FFO
Il faut se méfier de xlCellTypeLastCell. Une cellule effacée ou vide mais
formatée peut fausser le résultat.
Cordialement.
DanielSalut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Bonjour FFO
Il faut se méfier de xlCellTypeLastCell. Une cellule effacée ou vide mais
formatée peut fausser le résultat.
Cordialement.
DanielSalut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Bonjour FFO
Il faut se méfier de xlCellTypeLastCell. Une cellule effacée ou vide mais
formatée peut fausser le résultat.
Cordialement.
Daniel
Salut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Bonjour FFO
Il faut se méfier de xlCellTypeLastCell. Une cellule effacée ou vide mais
formatée peut fausser le résultat.
Cordialement.
DanielSalut à toi
essaies ceci :
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Pour toutes les feuilles :
For i = 1 to Sheets.Count
Sheets(i).Activate
Range("A1", Range("A1").SpecialCells
(xlCellTypeLastCell).Address).Activate
Traitement Format.....
Next
Celà devrait convenir
Dis moi !!!!!
Bonjour à tous,Bonjour à toutes et tous !
Question double !
1°) je voudrais appliquer un traitement (formatage) à la
totalité de la
plage utilisée sur une feuille
Quel code utiliser pour sélectionner la plage comprise entre A1 et
la
dernière cellule contenant une valeur dans une feuille (dernière
ligne et
dernière colonne occupée !)
2°) je voudrais ensuite appliquer ce même traitement à
l'ensemble des
feuilles du classeur
Là encore quelqu'un pourrait-il m'indiquer le code ?
Merci pour votre aide
Domi
Bonjour à tous,Bonjour à toutes et tous !
Question double !
1°) je voudrais appliquer un traitement (formatage) à la
totalité de la
plage utilisée sur une feuille
Quel code utiliser pour sélectionner la plage comprise entre A1 et
la
dernière cellule contenant une valeur dans une feuille (dernière
ligne et
dernière colonne occupée !)
2°) je voudrais ensuite appliquer ce même traitement à
l'ensemble des
feuilles du classeur
Là encore quelqu'un pourrait-il m'indiquer le code ?
Merci pour votre aide
Domi