requete insert et where avec vba

j'ai vu que j'ai fait un erreur. mais le code ne marche pas, il y a toujours le meme erreur.

Code:

---

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

Private Sub CommandButton1_Click()   Dim NewLig As Long NewLig = Worksheets("Donnees").Cells(.Rows.Count, "D").End(xlUp).Row + 1   For i = 1 To Worksheets("Donnees").Range("A65536").End(xlUp).Row 'toutes les lignes donc If Worksheets("Donnees").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then Numlig = i End If Next i   With Worksheets("Donnees") .Cells(.Rows.Count, "D").End(xlUp).Row 1 End With   End Sub

---

Bonjour,
Je t'ai demander de donner un numéro d'erreur et à quelle ligne.
Tu réponds par une ligne de code mise en couleur.
Je te donne la solution et tu réponds par

Citation:

---

j'ai vu que j'ai fait un erreur. mais le code ne marche pas, il y a toujours le meme erreur.

---

Pour ma part, je renonce tant que tu ne donnes pas clairement un n° d'erreur et à quelle ligne.

ok maintentant il s'affiche l'erreur et me souligne la partie du code suivante:

Erreur d'exécution '438':
Propriété ou méthode non gérée par cet objet

Code:

---

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

Private Sub CommandButton1_Click() Dim NewLig As Long NewLig = Worksheets("Fiche").Cells(Rows.Count, "D").End(xlUp).Row + 1 For i = 1 To Worksheets("Donnees").Range("A65536").End(xlUp).Row 'toutes les lignes donc If Worksheets("Donnees").Range("A" & i).Value = Worksheets("Fiche").Range("A6").Value And Worksheets("Donnees").Range("B" & i).Value = Worksheets("Fiche").Range("B6").Value Then NewLig = i End If Next i With Worksheets("Donnees") .Cells(.Rows.Count, "D").End(xlUp).Row 1 End With End Sub

---

Bonjour,
Et elle est censée faire quoi ta ligne 14 ?

Elle doit permettre d'inserer la valeur dans la feuille donnees. c'est que je voudrais faire:

insert into Donnees dans la colonne D, la valuer tapee dans la cellule D6 de la feuille Fiche

where Fiche.A6 = Donnees.A and Fiche.B6 = Donnees.B

mais je sais pas comment on peut le faire en vba

Citation:

---

Envoyé par bbil

Bonjour,
Et elle est censée faire quoi ta ligne 14 ?

---

Je suis arrivée a ressoudre le probleme.

voici le code

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub CommandButton1_Click() Dim ac As Range   For Each ac In [donnees!a1].CurrentRegion.Resize(columnsize:=1) If ac = [fiche!a6] And ac.Offset(0, 1) = [fiche!b6] Then Sheets("donnees").Cells(ac.Row, 4) = [fiche!d6]   End If Next   End Sub

---

par contre, comment je fais pour inserée cette partie ?

Code:

---

Sheets("donnees").Cells(ac.Row, 5) = [fiche!f6]

---

merci