Probleme boucle if

Résolu/Fermé

ludo2502 Messages postés 7 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 19 juin 2008 - 14 juin 2008 à 11:20
ludo2502 Messages postés 7 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 19 juin 2008 - 16 juin 2008 à 21:53

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

A voir également:

2 réponses

Réponse 1 / 2

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
14 juin 2008 à 11:28

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 feuille

Sheets("Feuil1").Cells(i, 1).Value = SaisieNom.Value

ou..

   With sheets("Feuill1")
       .Cells(i, 1).Value = SaisieNom.Value 
       etc..
    End With

ludo2502 Messages postés 7 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 19 juin 2008
15 juin 2008 à 20:55

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é

ludo2502 Messages postés 7 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 19 juin 2008
16 juin 2008 à 13:50

ok merci beaucoup pour cette réponse ,j'essaie dans la journée .

A+

ludo2502 Messages postés 7 Date d'inscription jeudi 12 juin 2008 Statut Membre Dernière intervention 19 juin 2008
16 juin 2008 à 21:53

Merci beaucoup ça fonctionne impec.
Une erreur que je ne reproduirais plus

A+

Réponse 2 / 2

lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
15 juin 2008 à 23:56

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+

Discussions similaires

Mon pc s'allume et s'éteint en boucle

faire une boucle sans VBA

Fonction if exist et else

Boucle en Batch

tele s'eteind et s'allume en boucle