Discussion :

[jamelie]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ouskel'n'or]

Regarde Find dans l'aide, ensuite tu fais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

LaLigne = Activecell.row

ou

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[Vesta]

Grillé ;p

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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