Probleme boucle if
Résolu
ludo2502
Messages postés
7
Date d'inscription
Statut
Membre
Dernière intervention
-
ludo2502 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
ludo2502 Messages postés 7 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Probleme boucle if
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Boucle excel sans macro - Forum Excel
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
- Vlc lire en boucle ✓ - Forum Lecteurs et supports vidéo
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 feuille
ou..
A=
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
A=
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+
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+
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é
A+
Une erreur que je ne reproduirais plus
A+