P Pseudo XLDnaute Nouveau 19 Juillet 2024 #1 Bonjour j'aimerais effacer le contenu des cellules G& à G999999 avec le chiffre de la première cellule qui sera indiqué dans une autre cellule. Comme ça j'ai écris : Range("INDIRECT("g"&O2)):g9999999").SelectSelection.ClearContents mais ça ne marche pas. donc pour moi là je sélectionne de la cellule G850 à g9999999 et je supprime toutes les valeurs 850 est écris en cellule O2. Merci d'avance de votre aide.
Bonjour j'aimerais effacer le contenu des cellules G& à G999999 avec le chiffre de la première cellule qui sera indiqué dans une autre cellule. Comme ça j'ai écris : Range("INDIRECT("g"&O2)):g9999999").SelectSelection.ClearContents mais ça ne marche pas. donc pour moi là je sélectionne de la cellule G850 à g9999999 et je supprime toutes les valeurs 850 est écris en cellule O2. Merci d'avance de votre aide.
Dranreb XLDnaute Barbatruc 19 Juillet 2024 #2 Bonjour. VB: LDéb = [O2].Value Cells(LDéb, "G").Resize(1000000 - LDéb).ClearContents Vote positif 0 Vote négatif
TooFatBoy XLDnaute Barbatruc 19 Juillet 2024 #3 Bonjour, Pseudo à dit: Comme ça j'ai écris : Range("INDIRECT("g"&O2)):g9999999").SelectSelection.ClearContents Cliquez pour agrandir... Essaye cette syntaxe : Range("g"&O2&":g9999999").ClearContents Vote positif -1 Vote négatif
Bonjour, Pseudo à dit: Comme ça j'ai écris : Range("INDIRECT("g"&O2)):g9999999").SelectSelection.ClearContents Cliquez pour agrandir... Essaye cette syntaxe : Range("g"&O2&":g9999999").ClearContents
job75 XLDnaute Barbatruc 19 Juillet 2024 #4 Bonsoir Pseudo, Bernard, TooFatBoy, TooFatBoy à dit: Essaye cette syntaxe : Range("g"&O2&":g9999999").ClearContents Cliquez pour agrandir... Hum, g9999999 n'existe pas car il n'y a que 1048576 lignes sur une feuille de calcul. Bonne nuit. Vote positif 0 Vote négatif
Bonsoir Pseudo, Bernard, TooFatBoy, TooFatBoy à dit: Essaye cette syntaxe : Range("g"&O2&":g9999999").ClearContents Cliquez pour agrandir... Hum, g9999999 n'existe pas car il n'y a que 1048576 lignes sur une feuille de calcul. Bonne nuit.
AtTheOne XLDnaute Accro Supporter XLD 19 Juillet 2024 #5 Bonne nuit à toutes & à tous, bonne nuit @Pseudo Une proposition sans filet (je suis sur mon téléphone et je n'ai pas de VBA disponible) : Range(cells([O2],"G"),cells(1048576,"G")).ClearContents À bientôt Vote positif 0 Vote négatif
Bonne nuit à toutes & à tous, bonne nuit @Pseudo Une proposition sans filet (je suis sur mon téléphone et je n'ai pas de VBA disponible) : Range(cells([O2],"G"),cells(1048576,"G")).ClearContents À bientôt