Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel cherche macro

cherche macro

4 réponses
Avatar
David
Bonsoir à tous

Cette partie de procédure cherche la première cellule vide de la colonne A.

L2 = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

J'aimerais que cela cherche la première cellule vide de la colonne A à L ?

Merci de votre aide

David



Mon essai :

L2 = Sheets("Feuil1").Range("A:L65536").End(xlUp).Row + 1
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
isabelle
bonjour David,

L2 = Sheets("Feuil1").[A:L].Find("*", Sheets("Feuil1").[A:L].Item(1), , , , xlPrevious).Row + 1

isabelle


Bonsoir à tous

Cette partie de procédure cherche la première cellule vide de la colonne A.

L2 = Sheets("Feuil1").Range("A65536").End(xlUp).Row + 1

J'aimerais que cela cherche la première cellule vide de la colonne A à L ?

Merci de votre aide

David

Mon essai :

L2 = Sheets("Feuil1").Range("A:L65536").End(xlUp).Row + 1


Avatar
David
Bonsoir et merci Isabelle

C'est nickel !!

Bonne soirée


David
Avatar
AV
Ave Isabelle,

L2 = Sheets("Feuil1").[A:L].Find("*", Sheets("Feuil1").[A:L].Item(1), , , ,
xlPrevious).Row + 1


Il est étonnant que Denis n'ai pas réagi à ta réponse ;-)
Cette formulation peut parfois réserver des surprises...

Plus sur :

L2 = [Feuil1!A:L].Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
ou bien, en beaucoup moins abscons :
L2 = [Feuil1!A:L].Find("*", , 1, , 1, 2).Row + 1

AV

Avatar
isabelle
c'est vrai Av qu'il vaut mieux précisirer la commande avec la fonction find, merci pour le suivi.
isabelle


Ave Isabelle,

L2 = Sheets("Feuil1").[A:L].Find("*", Sheets("Feuil1").[A:L].Item(1), , , ,
xlPrevious).Row + 1


Il est étonnant que Denis n'ai pas réagi à ta réponse ;-)
Cette formulation peut parfois réserver des surprises...

Plus sur :

L2 = [Feuil1!A:L].Find("*", , xlFormulas, , xlByRows, xlPrevious).Row + 1
ou bien, en beaucoup moins abscons :
L2 = [Feuil1!A:L].Find("*", , 1, , 1, 2).Row + 1

AV