Bonsoir
Un essai juste pour savoir si le résultat que j'obtiens est général.(xl97)
1) Coller cette procédure dans le code de feuille d'un classeur neuf et
vierge.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveWorkbook.Names.Add Name:="zn", RefersToR1C1:="=Feuil1!R11C4:R20C4" '
(plage D11:D20)
[C11] = [zn].Find("", LookIn:=xlValues).Row
[C12] = [zn].Address
End Sub
2) Le clic sur une cellule quelconque provoque l'arrêt de la proc à la 3ième
ligne.(erreur)
3)sélectionner une cellule en dehors de la plage D11:D20 et y introduire une
valeur
4)poursuivre la procédure par l'éditeur vba.( l'erreur n'existe plus, la
première cellule trouvée (Find) comme étant vide est fausse (12))
Cet essai servira si le résultat obtenu sur ma bécane est général pour
toutes personnes utilisant "Find" pour rechercher la première cellule vide
d'une plage encore vierge , et d'ajouter pour ce cas précis un If [D11]=""
Then [C11]=11 après la 3ième ligne.
--
Fred
Pour répondre, ôtez "nsp-"
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
AV
4)poursuivre la procédure par l'éditeur vba.( l'erreur n'existe plus, la première cellule trouvée (Find) comme étant vide est fausse (12))
En l'absence du 2° l'argument "After", la méthode "Find" commence par défaut APRES la 1° cellule de la plage de recherche (D11:D20) donc --> ligne 12 Tout me semble normal....
AV
4)poursuivre la procédure par l'éditeur vba.( l'erreur n'existe plus, la
première cellule trouvée (Find) comme étant vide est fausse (12))
En l'absence du 2° l'argument "After", la méthode "Find" commence par défaut
APRES la 1° cellule de la plage de recherche (D11:D20) donc --> ligne 12
Tout me semble normal....
4)poursuivre la procédure par l'éditeur vba.( l'erreur n'existe plus, la première cellule trouvée (Find) comme étant vide est fausse (12))
En l'absence du 2° l'argument "After", la méthode "Find" commence par défaut APRES la 1° cellule de la plage de recherche (D11:D20) donc --> ligne 12 Tout me semble normal....
AV
Frédo P
Ok Merci AV
En l'absence du 2° l'argument "After", la méthode "Find" commence par défaut
APRES la 1° cellule de la plage de recherche (D11:D20) donc --> ligne 12 Tout me semble normal....
AV
Ok Merci AV
En l'absence du 2° l'argument "After", la méthode "Find" commence par
défaut
APRES la 1° cellule de la plage de recherche (D11:D20) donc --> ligne 12
Tout me semble normal....
En l'absence du 2° l'argument "After", la méthode "Find" commence par défaut
APRES la 1° cellule de la plage de recherche (D11:D20) donc --> ligne 12 Tout me semble normal....
AV
LSteph
Bonjour,
Si cela sert ! à remarquer un truc auquel je n'avais pas pretté assez d'attention (l'absence d'after qui par défaut fait commencer find juste à la cellule suivante)
Merci Fredo, et AV bien sûr.
lSteph
"Frédo P" a écrit dans le message de news:
Bonsoir Un essai juste pour savoir si le résultat que j'obtiens est général.(xl97) 1) Coller cette procédure dans le code de feuille d'un classeur neuf et vierge. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ActiveWorkbook.Names.Add Name:="zn", RefersToR1C1:="þuil1!R11C4:R20C4" ' (plage D11:D20) [C11] = [zn].Find("", LookIn:=xlValues).Row [C12] = [zn].Address End Sub 2) Le clic sur une cellule quelconque provoque l'arrêt de la proc à la 3ième ligne.(erreur) 3)sélectionner une cellule en dehors de la plage D11:D20 et y introduire une valeur 4)poursuivre la procédure par l'éditeur vba.( l'erreur n'existe plus, la première cellule trouvée (Find) comme étant vide est fausse (12))
Cet essai servira si le résultat obtenu sur ma bécane est général pour toutes personnes utilisant "Find" pour rechercher la première cellule vide d'une plage encore vierge , et d'ajouter pour ce cas précis un If [D11]="" Then [C11] après la 3ième ligne. -- Fred Pour répondre, ôtez "nsp-"
Bonjour,
Si cela sert !
à remarquer un truc auquel je n'avais pas pretté assez d'attention
(l'absence d'after qui par défaut fait commencer find juste à la cellule
suivante)
Merci Fredo, et AV bien sûr.
lSteph
"Frédo P" <nspfrdpst@9online.fr> a écrit dans le message de news:
Oup1ISKZFHA.3648@TK2MSFTNGP14.phx.gbl...
Bonsoir
Un essai juste pour savoir si le résultat que j'obtiens est général.(xl97)
1) Coller cette procédure dans le code de feuille d'un classeur neuf et
vierge.
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
ActiveWorkbook.Names.Add Name:="zn", RefersToR1C1:="þuil1!R11C4:R20C4" '
(plage D11:D20)
[C11] = [zn].Find("", LookIn:=xlValues).Row
[C12] = [zn].Address
End Sub
2) Le clic sur une cellule quelconque provoque l'arrêt de la proc à la
3ième
ligne.(erreur)
3)sélectionner une cellule en dehors de la plage D11:D20 et y introduire
une
valeur
4)poursuivre la procédure par l'éditeur vba.( l'erreur n'existe plus, la
première cellule trouvée (Find) comme étant vide est fausse (12))
Cet essai servira si le résultat obtenu sur ma bécane est général pour
toutes personnes utilisant "Find" pour rechercher la première cellule vide
d'une plage encore vierge , et d'ajouter pour ce cas précis un If [D11]=""
Then [C11] après la 3ième ligne.
--
Fred
Pour répondre, ôtez "nsp-"
Si cela sert ! à remarquer un truc auquel je n'avais pas pretté assez d'attention (l'absence d'after qui par défaut fait commencer find juste à la cellule suivante)
Merci Fredo, et AV bien sûr.
lSteph
"Frédo P" a écrit dans le message de news:
Bonsoir Un essai juste pour savoir si le résultat que j'obtiens est général.(xl97) 1) Coller cette procédure dans le code de feuille d'un classeur neuf et vierge. Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range) ActiveWorkbook.Names.Add Name:="zn", RefersToR1C1:="þuil1!R11C4:R20C4" ' (plage D11:D20) [C11] = [zn].Find("", LookIn:=xlValues).Row [C12] = [zn].Address End Sub 2) Le clic sur une cellule quelconque provoque l'arrêt de la proc à la 3ième ligne.(erreur) 3)sélectionner une cellule en dehors de la plage D11:D20 et y introduire une valeur 4)poursuivre la procédure par l'éditeur vba.( l'erreur n'existe plus, la première cellule trouvée (Find) comme étant vide est fausse (12))
Cet essai servira si le résultat obtenu sur ma bécane est général pour toutes personnes utilisant "Find" pour rechercher la première cellule vide d'une plage encore vierge , et d'ajouter pour ce cas précis un If [D11]="" Then [C11] après la 3ième ligne. -- Fred Pour répondre, ôtez "nsp-"
