Discussion :

[dodo28]

Bonjour le Forum,
pouvez vous m aider sur ce probleme? Merci

une ligne d'une base de donnée (feuille : Rentrée) alimente un userform en cliquant sur Co_ModifRentrée je voudrais que les données des differents texbox remplace (ou modifie) celle de la meme ligne.

le texbox (N°Contrat) permet d'identifier la ligne.

Voici ce que j ai fait :

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub Co_ValiderModifRentrée_Click()
 
 
With Sheets("Rentrée")
Set PointeurRentrée = .[A:A].Find(what:=Me.N°Contrat)
.Cells(PointeurRentrée, 1) = Me.N°Contrat
.Cells(PointeurRentrée, 2) = Me.TypeText
.Cells(PointeurRentrée, 5) = Me.Prenom
End With
End Sub

la colonne du N°Contart est en colonne A

l'erreur est erreur definie par l'application objet 1004
merci pour votre aide

[mercatog]

Code :

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

1
2
3
4
5
6
7
8
With Sheets("Rentrée")
Set PointeurRentrée = .[A:A].Find(what:=Me.N°Contrat)
if not PointeurRentrée is nothing then
.Cells(PointeurRentrée.row, 1) = Me.N°Contrat
.Cells(PointeurRentrée.row, 2) = Me.TypeText
.Cells(PointeurRentrée.row, 5) = Me.Prenom
endif
End With

Edit: pour contrôler l'existence du N°Contrat

[dodo28]

merci beaucoup
bonne fin de journée