Comment est-il possible sur supprimer toutes les lignes et=20
colonnes non utilis=E9es sans passer par le masquage manuel=20
des colonnes jusqu' =E0 la lettre xx et jusqu'=E0 la ligne=20
65536 ?
Merci pour vos r=E9ponses.
Ps: Je remercie =E9galement toutes les personnes qui m'ont=20
apport=E9 les r=E9ponses =E0 mes messages pr=E9cedent.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ru-th
Salut
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
Salut
masquage par vba ?
Sub test2()
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":iv1").EntireColumn.Hidden = True
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":a65536").EntireRow.Hidden = True
End Sub
a+
rural thierry
"Manu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 12d801c48c19$d10c45d0$a501280a@phx.gbl...
Bonjour,
Comment est-il possible sur supprimer toutes les lignes et
colonnes non utilisées sans passer par le masquage manuel
des colonnes jusqu' à la lettre xx et jusqu'à la ligne
65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont
apporté les réponses à mes messages précedent.
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
michdenis
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10 et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le paramètre "Par Colonne" , "Par ligne" à partir du menu "édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le paramètre Rechercher dans formule , rechercher dans Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non vide c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule non vide de la dernière colonne r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière recheche effectuée que ce soit par une ligne de code ou par la fonction recherche de la feuille de calcul. En fait, c'est la même fonction. C'est pour cela que l'on doit toujours définir un certain nombre de paramètres afin de s'assurer de la constance du résultat.
Salutations!
"ru-th" a écrit dans le message de news: Salut
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10 et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le paramètre "Par Colonne" , "Par ligne" à partir du menu
"édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le paramètre Rechercher dans formule , rechercher dans
Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non vide
c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule non vide de la dernière colonne
r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière recheche effectuée que ce soit par une ligne de code
ou par la fonction recherche de la feuille de calcul. En fait, c'est la même fonction. C'est pour cela que l'on doit toujours
définir un certain nombre de paramètres afin de s'assurer de la constance du résultat.
Salutations!
"ru-th" <ailleurs@nowhere> a écrit dans le message de news:uR7ZMZCjEHA.1356@TK2MSFTNGP09.phx.gbl...
Salut
masquage par vba ?
Sub test2()
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":iv1").EntireColumn.Hidden = True
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":a65536").EntireRow.Hidden = True
End Sub
a+
rural thierry
"Manu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 12d801c48c19$d10c45d0$a501280a@phx.gbl...
Bonjour,
Comment est-il possible sur supprimer toutes les lignes et
colonnes non utilisées sans passer par le masquage manuel
des colonnes jusqu' à la lettre xx et jusqu'à la ligne
65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont
apporté les réponses à mes messages précedent.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10 et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le paramètre "Par Colonne" , "Par ligne" à partir du menu "édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le paramètre Rechercher dans formule , rechercher dans Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non vide c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule non vide de la dernière colonne r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière recheche effectuée que ce soit par une ligne de code ou par la fonction recherche de la feuille de calcul. En fait, c'est la même fonction. C'est pour cela que l'on doit toujours définir un certain nombre de paramètres afin de s'assurer de la constance du résultat.
Salutations!
"ru-th" a écrit dans le message de news: Salut
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
ru-th
Salut Denis Merci d'avoir mis le doigt sur des raccourcis qui deviennent approximatifs quand ils sont mal utilisés. à vous décourager d'être faiénant ! ;-)) a+ rural thierry "michdenis" a écrit dans le message de news:
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10 et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le paramètre "Par Colonne" , "Par ligne" à partir du menu
"édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le paramètre Rechercher dans formule , rechercher dans
Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non vide
c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule non vide de la dernière colonne
r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière recheche effectuée que ce soit par une ligne de code
ou par la fonction recherche de la feuille de calcul. En fait, c'est la même fonction. C'est pour cela que l'on doit toujours
définir un certain nombre de paramètres afin de s'assurer de la constance du résultat.
Salutations!
"ru-th" a écrit dans le message de news:
Salut
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
Salut Denis
Merci d'avoir mis le doigt sur des raccourcis qui deviennent approximatifs
quand ils sont mal utilisés.
à vous décourager d'être faiénant !
;-))
a+
rural thierry
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eWollsDjEHA.3944@tk2msftngp13.phx.gbl...
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10
et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le
paramètre "Par Colonne" , "Par ligne" à partir du menu
"édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le
paramètre Rechercher dans formule , rechercher dans
Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non
vide
c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule
non vide de la dernière colonne
r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière
recheche effectuée que ce soit par une ligne de code
ou par la fonction recherche de la feuille de calcul. En fait, c'est la
même fonction. C'est pour cela que l'on doit toujours
définir un certain nombre de paramètres afin de s'assurer de la constance
du résultat.
Salutations!
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:uR7ZMZCjEHA.1356@TK2MSFTNGP09.phx.gbl...
Salut
masquage par vba ?
Sub test2()
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":iv1").EntireColumn.Hidden = True
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":a65536").EntireRow.Hidden = True
End Sub
a+
rural thierry
"Manu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 12d801c48c19$d10c45d0$a501280a@phx.gbl...
Bonjour,
Comment est-il possible sur supprimer toutes les lignes et
colonnes non utilisées sans passer par le masquage manuel
des colonnes jusqu' à la lettre xx et jusqu'à la ligne
65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont
apporté les réponses à mes messages précedent.
Salut Denis Merci d'avoir mis le doigt sur des raccourcis qui deviennent approximatifs quand ils sont mal utilisés. à vous décourager d'être faiénant ! ;-)) a+ rural thierry "michdenis" a écrit dans le message de news:
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10 et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le paramètre "Par Colonne" , "Par ligne" à partir du menu
"édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le paramètre Rechercher dans formule , rechercher dans
Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non vide
c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule non vide de la dernière colonne
r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière recheche effectuée que ce soit par une ligne de code
ou par la fonction recherche de la feuille de calcul. En fait, c'est la même fonction. C'est pour cela que l'on doit toujours
définir un certain nombre de paramètres afin de s'assurer de la constance du résultat.
Salutations!
"ru-th" a écrit dans le message de news:
Salut
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
michdenis
Bonjour Rural,
Pour paraphraser une expression en pleine ferveur en ce moment,
C'était avec plaisir !
;-))
Salutations!
"ru-th" a écrit dans le message de news: Salut Denis Merci d'avoir mis le doigt sur des raccourcis qui deviennent approximatifs quand ils sont mal utilisés. à vous décourager d'être faiénant ! ;-)) a+ rural thierry "michdenis" a écrit dans le message de news:
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10 et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le paramètre "Par Colonne" , "Par ligne" à partir du menu
"édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le paramètre Rechercher dans formule , rechercher dans
Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non vide
c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule non vide de la dernière colonne
r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière recheche effectuée que ce soit par une ligne de code
ou par la fonction recherche de la feuille de calcul. En fait, c'est la même fonction. C'est pour cela que l'on doit toujours
définir un certain nombre de paramètres afin de s'assurer de la constance du résultat.
Salutations!
"ru-th" a écrit dans le message de news:
Salut
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
Bonjour Rural,
Pour paraphraser une expression en pleine ferveur en ce moment,
C'était avec plaisir !
;-))
Salutations!
"ru-th" <ailleurs@nowhere> a écrit dans le message de news:uHEwB0DjEHA.2412@TK2MSFTNGP15.phx.gbl...
Salut Denis
Merci d'avoir mis le doigt sur des raccourcis qui deviennent approximatifs
quand ils sont mal utilisés.
à vous décourager d'être faiénant !
;-))
a+
rural thierry
"michdenis" <michdenis@hotmail.com> a écrit dans le message de news:
eWollsDjEHA.3944@tk2msftngp13.phx.gbl...
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10
et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le
paramètre "Par Colonne" , "Par ligne" à partir du menu
"édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le
paramètre Rechercher dans formule , rechercher dans
Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non
vide
c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule
non vide de la dernière colonne
r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière
recheche effectuée que ce soit par une ligne de code
ou par la fonction recherche de la feuille de calcul. En fait, c'est la
même fonction. C'est pour cela que l'on doit toujours
définir un certain nombre de paramètres afin de s'assurer de la constance
du résultat.
Salutations!
"ru-th" <ailleurs@nowhere> a écrit dans le message de
news:uR7ZMZCjEHA.1356@TK2MSFTNGP09.phx.gbl...
Salut
masquage par vba ?
Sub test2()
Cells.EntireRow.Hidden = False
Cells.EntireColumn.Hidden = False
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":iv1").EntireColumn.Hidden = True
Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address &
":a65536").EntireRow.Hidden = True
End Sub
a+
rural thierry
"Manu" <anonymous@discussions.microsoft.com> a écrit dans le message de
news: 12d801c48c19$d10c45d0$a501280a@phx.gbl...
Bonjour,
Comment est-il possible sur supprimer toutes les lignes et
colonnes non utilisées sans passer par le masquage manuel
des colonnes jusqu' à la lettre xx et jusqu'à la ligne
65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont
apporté les réponses à mes messages précedent.
Pour paraphraser une expression en pleine ferveur en ce moment,
C'était avec plaisir !
;-))
Salutations!
"ru-th" a écrit dans le message de news: Salut Denis Merci d'avoir mis le doigt sur des raccourcis qui deviennent approximatifs quand ils sont mal utilisés. à vous décourager d'être faiénant ! ;-)) a+ rural thierry "michdenis" a écrit dans le message de news:
Bonjour Ru-th,
Si tu as un instant, fais ce petit test.
A ) Dans une feuille vierge, inscris des données dans les cellules A1:A10 et dans B1:B5
B ) exécute la ligne de code suivante en modifiant à chaque fois, le paramètre "Par Colonne" , "Par ligne" à partir du menu
"édition" / Rechercher ... Obtiens-tu toujours le même résultat ?
A = Cells.Find("*", , , , , xlPrevious).address
C ) Maintenant, inscrit dans C15 la formule suivante : =SI(D1=5;10;"")
D ) Exécute la même ligne de code en faisant varier cette fois le paramètre Rechercher dans formule , rechercher dans
Valeur. Obtiens-tu toujours le même résultat ?
Maintenant, tu peux refaire ce test en utilisant ceci :
Retourne toujours le numéro de la dernière colonne ayant une cellule non vide
c = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Column
Retourne toujours le numéro de la dernière ligne de la dernière cellule non vide de la dernière colonne
r = Cells.Find("*", , xlFormulas, xlPart, xlByColumns, xlPrevious).Row
La méthode Find retient toujours les derniers paramètres de la dernière recheche effectuée que ce soit par une ligne de code
ou par la fonction recherche de la feuille de calcul. En fait, c'est la même fonction. C'est pour cela que l'on doit toujours
définir un certain nombre de paramètres afin de s'assurer de la constance du résultat.
Salutations!
"ru-th" a écrit dans le message de news:
Salut
masquage par vba ? Sub test2() Cells.EntireRow.Hidden = False Cells.EntireColumn.Hidden = False Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":iv1").EntireColumn.Hidden = True Range(Cells.Find("*", , , , , xlPrevious).Offset(1, 1).Address & ":a65536").EntireRow.Hidden = True End Sub
a+ rural thierry "Manu" a écrit dans le message de news: 12d801c48c19$d10c45d0$ Bonjour,
Comment est-il possible sur supprimer toutes les lignes et colonnes non utilisées sans passer par le masquage manuel des colonnes jusqu' à la lettre xx et jusqu'à la ligne 65536 ?
Merci pour vos réponses.
Ps: Je remercie également toutes les personnes qui m'ont apporté les réponses à mes messages précedent.
