[VBA-E] selectionner une ligne sur excel en fonction de ce que contient une cellule

bonjour,
Après avoir résolu mon problème d'hier j'en ai un autre et comme vous m avez super bien aidée rje revien vers vous.
alors, j'ai réussi à envoyer mes données de ma userform vers excel mais elles se recopient toujour les unes sur les autres: gros problème pour moi. plusieurs solutions s'offrent à moi:
- soit je garde mes lignes de code et je fais qqch d'autre pour que ca s'ecrive à la suite mais c'est galère parce que j'ai des contraintes: il faut que mes données ailles s'ecrire sur la ligne correspondant au mois et à l'année que je selectionne dans une autre userform(en premier)donc je préfèrerais garder mes codes:

Code:

---

1 2 3 4

with worksheets("BDD1") .cells(maligne,1).formula = REC1.text ...

---

mais le problème c'est que pour maligne je veux : userform4.RECAnnée.value et userform4.RECMois.value mais ca marche pas

sinon autre idée:
si l'année est x
et si le mois est y
alors ecrire les données sur la ligne qui comporte les données x et y
fin si

qu'est ce je dois faire?
Si il y a possibilité de m'aider merci beaucoup
Jamelie

Regarde Find dans l'aide, ensuite tu fais

Code:

---

LaLigne = Activecell.row

---

ou

Code:

---

1 2	Adresse = activecell.address

---

Pour find, tu peux faire ta recherche en enregistrant ta macro.
Après, tu mets le code, on pourra te montrer comment simplifier

A+

Je viens de relire ta question : Comme tu dois vérifier la correspondance des données pour deux cellules, une fois que tu as trouvé la correspondance pour la 1ère, tu testes la cellule
Ok = DonnéeDaCôté = Cells(Activecell.row,ColonneDaCôté).value
if ok then 'tu es sur la bonne ligne
si pas ok, utilise finfnext dans une boucle (F1 sur findnext)

Il y a une solution plus sioux mais essaie déjà ça en attendant...
(je dois m'absenter)

Bon courage

A+ tard

Grillé ;p8O:mouarf:

La solution est la... Je la post qd meme...
DateRow est une variable globale, elle passe par un formulaire annexe avant d'entrer les données...

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Function UpdateRowOK() As Boolean UpdateRowOK = False Dim i As Integer If RECAnnée.ListIndex = -1 Then MsgBox "Veuillez selectionner une année." Exit Function End If 'Procédure qui trouve la ligne concernée par Date i = 1 Do While Not ((BDD1.Cells(i, 1).Text = RECAnnée.List(RECAnnée.ListIndex)) And _ (BDD1.Cells(i, 2) = RECMois.Value)) i = i + 1 Loop   DateRow = i UpdateRowOK = True End Function

---