Utilisation de listindex

bonsoir 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 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

dé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

Maurice
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