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
A voir également:
- Probleme boucle if
- Boucle excel sans macro - Forum Excel
- Mon pc s'allume et s'éteint en boucle ✓ - Forum Matériel & Système
- Smart tv qui s'allume et s'éteint en boucle - Forum Téléviseurs
- Xiaomi s'éteint tout seul et se rallume en boucle - Forum Xiaomi
- Mise à disposition de boucle locale dédiée ✓ - Forum Freebox
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+