Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Macro comptage de ligne ne fonctionne plus...

Macro comptage de ligne ne fonctionne plus...

2 réponses
Avatar
Domi
Bonjour,
J'utilisais jusqu'à peu ce code dans une application (Office 2000 / WK2). Je
viens de passer à Office 2003 / XP Pro et depuis ça plante systématiquement
sur nbl...
Le but est d'avertir si un fichier texte importé contient plus de 65000
lignes...

nbl = [A:Z].Find("*", , 1, , 1, 2).Row
If nbl > 65000 Then
MsgBox "Attention le nombre de lignes importées est >= à 65000.
L'importation n'est peut-être pas complète. Vérifiez le fichier TXT."
End If

C'est quoi qu'il n'aime plus et comment y remédier ?
Merci
Domi
Signaler un problème avec ce contenu

2 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
JB
Bonjour,

nbl = [A:Z].Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Row

Cordialement JB


Bonjour,
J'utilisais jusqu'à peu ce code dans une application (Office 2000 / WK2 ). Je
viens de passer à Office 2003 / XP Pro et depuis ça plante systémat iquement
sur nbl...
Le but est d'avertir si un fichier texte importé contient plus de 65000
lignes...

nbl = [A:Z].Find("*", , 1, , 1, 2).Row
If nbl > 65000 Then
MsgBox "Attention le nombre de lignes importées est >= à 65000.
L'importation n'est peut-être pas complète. Vérifiez le fichier TXT ."
End If

C'est quoi qu'il n'aime plus et comment y remédier ?
Merci
Domi


Avatar
Domi
Impec, Merci ;o)
Domi

"JB" a écrit dans le message de
news:
Bonjour,

nbl = [A:Z].Find("*", searchorder:=xlByRows,
SearchDirection:=xlPrevious).Row

Cordialement JB


Bonjour,
J'utilisais jusqu'à peu ce code dans une application (Office 2000 / WK2).
Je

viens de passer à Office 2003 / XP Pro et depuis ça plante
systématiquement

sur nbl...
Le but est d'avertir si un fichier texte importé contient plus de 65000
lignes...

nbl = [A:Z].Find("*", , 1, , 1, 2).Row
If nbl > 65000 Then
MsgBox "Attention le nombre de lignes importées est >= à 65000.
L'importation n'est peut-être pas complète. Vérifiez le fichier TXT."
End If

C'est quoi qu'il n'aime plus et comment y remédier ?
Merci
Domi