Utilisation de listindex

Bonjour max850,

Pour la colonne D ton listindex sera donc égal à 3, ce qui donne :

Sheets("Journal").Cells(Cells(Rows.Count, ComboBox3.listindex + 1 ).End(xlUp).Row + 1, ComboBox3.listindex + 1 ).Value = TextBox7.Value 

avec "

ComboBox3.listindex + 1 

" = 4 donc colonne D
et

Cells(Rows.Count, ComboBox3.listindex + 1 ).End(xlUp).Row + 1

dernière cellule blanche de la colonne D.
Si tu es sur la première valeur de ton combo (listindex = zéro) tu vas en colonne A.

@gbinformebonsoir gbinforme

voici un exemple de ce que j'ai fait et qui fonctionne

Private Sub CommandButton2_Click()

With Sheets("Journal")

DernLigne = Cells.Find("*", , , , , xlPrevious).Row + 1

.Range("A" & DernLigne).Value = TextBox3.Value
.Range("B" & DernLigne).Value = TextBox4.Value
.Range("C" & DernLigne).Value = TextBox5.Value

If ComboBox3.Value = "Dépenses fonctionnement" Then
Sheets("Journal").Range("D" & DernLigne).Value = TextBox7.Value
End If
If ComboBox3.Value = "Autres dépenses" Then
Sheets("Journal").Range("G" & DernLigne).Value = TextBox7.Value
End If
If ComboBox3.Value = "Dépenses pour manif" Then
Sheets("Journal").Range("E" & DernLigne).Value = TextBox7.Value
End If

End With
End Sub

je n'ai utilisé que 3 élements de ma combobox
mais j'en aurai au moins 6
aussi il existe certainement une façon de procéder qui m'évite de mettre autant de if ... then que d'éléments de ma combobox dans ma procédure

j' aurais du commencer par 'envoyer cet exemple au lieu de mes explications biscornues

Désolé

Bonjour,
Ma formule ne fonctionne pas ?
Si tu veut la dernière cellule blanche de la colonne A, tu mets :

Sheets("Journal").Cells(Cells(Rows.Count, "A" ).End(xlUp).Row + 1, ComboBox3.listindex + 1 ).Value = TextBox7.Value 

@gbinformebonjour gbinforme
ce que je voudrais c'est que toutes les infos entrées dans le userform se trouvent sur la même ligne
sachant que les cellules des colonnes a b c seront toujours alimentées
parexemple
cellule
A5 XXXXX B5YYYYYY C5DDDDD les cellules des colonnes D ou E ou F seront alimentées sur même ligne 5 même si les cellules de ces colonnes étaient vides auparavant

merci

@max850désolé gbinforme mais ça ne marche pas
je voudrais que la valeur de l'élément sélectionné dans la combobox (textbox7.value) s'inscrive à droite des données des cellules A B C de ma dernière ligne dans la cellule correspondante qui pourra être la cellule D E F ... en fonction de l'index de la combobox
ces cellules étant obligatoiremen vides

merci pour ta patience
il n'y a pas longtemps que je pratique VBA ceci explique cela

ca y est maintenant
en t'envoyant l info et en y ajoutant le lien
celuici passe en bleu et je peux y accéder

je dois partir maintenant
je te tien informé de la suite ce soir

merci

@max850Maurice
j'ai maintenant un autre problème
lorsque j' ouvre ton fichier
et lance l'application j'ai le message d'erreur suivant

Impossible charger le objet car il n'est pas disponible sur cette machine

je peux visualiser le code
il y a une flêche bleue au niveau de tex=array(10, 9)
et elle ne va pas plus loin

j'utilise excel 2007 win8.1 64bits

quel objet serait manquant ?

je n'ai pas d'autre PC pour essayer

merci

le fichier MSCOMCT2.OCX se trouve dans le dossier Dossier.ocx

C:\Windows\System32\Dossier .ocx