Pb: derniere cellule non vide

[jd]

Bonjours à toutes et à tous,

J'ai appliquer une formule que m'a procuré mcpoy sur un post précédent,

ligne = Columns(27).Find("*", , , , , xlPrevious).Row
range("D1") = ligne ' juste pour voir

ligne est déclarée comme suit:
private ligne as string

et quand je lance ma proc., Excel me met : Erreur d'execution '6'

Dépassement de capacité

si vous savez pouquoi, merci de m'en informer, je débute.

jd

 

[imanuelga]

Bonjour,
essaie

sub test()
Dim Ligne as long

ligne = Columns(27).Find("*", , , , , xlPrevious).Row
range("D1") = ligne ' juste pour voir
end sub

"String" correspond à une chaine de caratère , "long" à du numérique jusqu'à 65536.

A+
Imanuelga

 

[mcpoy]

bonsoir JD, bonsoir Imanuelga
regardez ce petit exemple, est ce ce tu cherche JD?
A+

 

[jd]

Bonsoir mcpoy et le forum,

C'est exactement ce que je cherchais, je te remercie encore pour ton aide.

J'ose cependant abuser, à quoi correspondent les différents arguments entre les virgules ?

Merci imanuelga pour ton intéret à mon Pb.

Bonne soirée mcpoy, imanuelga et le forum

jd

 

[mcpoy]

Re JD , le forum
désolé JD, je suis completement autodidacte, je prends des exemples qui marchent dans ce forum ou dans les programmes à telecharger puis je tente d'adapter, de triturer ............. etc . mais cela prends parfois du temps.
je n'ai aucune connaissance de la phrasologie VBA. le copier collé m'a permis, depuis le temps, de reconnaitre quelques trucs utiles.
je fais comme toi, j'attends la réponse d'un Excellien au sujet de ces virgules.
à bientôt peut être.

 

[jd]

Bonsoir mcpoy , le forum,

je te remercie quand même pour aide salvatrice, à bientôt .

jd