Discussion :

[Mél3790]

Bonjour à toutes et tous,

J'ai l'erreur indiquée dans le titre de mon poste au moment de passer à cette ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set b = Sheets("Formations")
b.Cells(LbPersonnel2.List(LbPersonnel2.ListIndex, 13), 14) = CbOrganisme2

Je n'arrive pas à comprendre pourquoi.


Auriez-vous des pistes pour m'aider ?

D'avance, merci beaucoup

[pijaku]

Bonjour,

Peut-être que la 13ème colonne de ta ListBox ne contient pas un nombre.
Peut-être qu'elle renvoie également un nombre mais sous forme de String.

Tester son contenu, comme ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Set b = Sheets("Formations")
MsgBox LbPersonnel2.List(LbPersonnel2.ListIndex, 13)
b.Cells(LbPersonnel2.List(LbPersonnel2.ListIndex, 13), 14) = CbOrganisme2

Si le MsgBox affiche le bon numéro de ligne, modifiez comme suit :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set b = Sheets("Formations")
b.Cells(CLng(LbPersonnel2.List(LbPersonnel2.ListIndex, 13)), 14) = CbOrganisme2

[Mél3790]

Bonjour Pijaku,

Merci pour ton retour.

En effet, ma colonne 13 de ma listbox contient du Texte et non des chiffres.

J'ai testé ceci comme tu me le propose :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox LbPersonnel2.List(LbPersonnel2.ListIndex, 13)

Ca ne me retourne pas le numéro de ligne mais bien le contenu de la cellule (donc du texte également) que je souhaite modifier qui est sur la bonne ligne.

Et donc ceci ne fonctionne pas :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

b.Cells(CLng(LbPersonnel2.List(LbPersonnel2.ListIndex, 13)), 14) = CbOrganisme2

J'ai toujours "Incompatibilité de type"

Qu'est ce qui peut bien poser problème ? :s

[pijaku]

Que te retourne, maintenant,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

MsgBox LbPersonnel2.ListIndex

Y a-t-il une corrélation (+1 ou +2, ou +31, ou -2 ou -1...) avec ton numéro de ligne?

Si oui, alors :
b.Cells(LbPersonnel2.ListIndex +- Delta), 14) = CbOrganisme2

[Mél3790]

Alors ça me retourne le chiffre 0.

Le numéro de ligne où doit se modifier le contenu de la cellule est le 18.

[pijaku]

Alors ça me retourne le chiffre 0.

Tu as sélectionné une ligne dans ta ListBox avant? La première ligne?

Le numéro de ligne où doit se modifier le contenu de la cellule est le 18.

Je supposes donc que tes données vont de la ligne 18 à la ligne xxxx...

Si oui, alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

b.Cells(LbPersonnel2.ListIndex + 18), 14) = CbOrganisme2

[Pierre Fauconnier]

Salut.

Et si tu expliquais en français (pas en jargon vba et encore moins à coup de lignes de code) la situation de départ et ce que tu souhaites obtenir?

Ca va encore partir pour une discussion de 50 messages sans issue, sinon