Probleme boucle if
Résolu
ludo2502
Messages postés
7
Statut
Membre
-
ludo2502 Messages postés 7 Statut Membre -
ludo2502 Messages postés 7 Statut Membre -
Bonjour,
J'ai petit souci ,j'explique :j'ai un combobox avec des valeurs de 1 à 7 dans un userform où il y a des textbox.
et j'aimerais que grace à l'item du combo selectionner les valeurs texte s'inscrive dans un tableau où des lignes sont numérotées de 1 à 7 dans la colonne 5 également.
Voici mon code ?????
For i = 3 To 13
If Cells(i, 5).Value = Me.SaisieLogement.Value Then
Cells(i, 1).Value = SaisieNom.Value
Cells(i, 2).Value = SaisieCI.Value
Cells(i, 4).Value = SaisieDate.Value
End If
Next
merci par avance
J'ai petit souci ,j'explique :j'ai un combobox avec des valeurs de 1 à 7 dans un userform où il y a des textbox.
et j'aimerais que grace à l'item du combo selectionner les valeurs texte s'inscrive dans un tableau où des lignes sont numérotées de 1 à 7 dans la colonne 5 également.
Voici mon code ?????
For i = 3 To 13
If Cells(i, 5).Value = Me.SaisieLogement.Value Then
Cells(i, 1).Value = SaisieNom.Value
Cells(i, 2).Value = SaisieCI.Value
Cells(i, 4).Value = SaisieDate.Value
End If
Next
merci par avance
Configuration: Windows XP Internet Explorer 7.0
2 réponses
-
Bonjour,
Apparement ta macro est dans le module de UF (parec que 'Me')
Si tu veux mettre dans des cellules d'une feuille tu doit mettre le nom de la feuilleSheets("Feuil1").Cells(i, 1).Value = SaisieNom.Value
ou..
With sheets("Feuill1") .Cells(i, 1).Value = SaisieNom.Value etc.. End With
A=-
Merci pour la réponse super rapide mais je crois que je me suis mal exprimé.Je vais essayé d'être plus clair.
Voilà j'ai un tableau avec des numéros de logement dans la colonne 5 sur les lignes de 3 à 13 et je voudrais que le nom de l'occupant s'inscrive dans le tableau (grâce à un textbox) à la ligne correspondant au numéro du logement choisit par le combo (SaisieLogement). If Cells(i, 5).Value = Me.SaisieLogement.Value Then
C'est ce code qui ne fonctionne pas surement pas grand chose mais quoi?????????
Merci encore pour cette rapidité -
-
-
-
C'est comme je dit dans mon poste précédant...
apparement ton code est dans le module de l'userform...
If Cells(i, 5).Value .... Ca c'est dans une feuille du classeur...
= Me.SaisieLogement.Value .... Ca c'est te texbox qui est sur ton userform
DONC...
If Sheets("LeNomDeTaFeuille").Cells(i, 5).Value = SaisieLogement.list(SaisieLogement.Listindex) Then
ou, mais ca va pas toujours...
If Sheets("LeNomDeTaFeuille").Cells(i, 5).Value = SaisieLogement.Text Then
et si la cellule est au format nombre..
If Sheets("LeNomDeTaFeuille").Cells(i, 5).Value = Val(SaisieLogement.Text) Then
A+
