Base de Données

[Riri]

Bonjours le Forum,

Ayant téléchargé le programme base de données et l'ayant testé , je me suis apperçu que , lorsque l'on fait une nouvelle saisie sur une feuille vierge le programme génère une erreur 1004 .
J'ai essayé de rectifier cette erreur , mais je ni suis pas arrivé.

Merci pour l'aide que vous pourrez m'apporter.

Le fichier est joint .......Riri

 

[salim]

Bonjour Riri et le Forum

En fait Riri l'erreur vient de la ligne en gras dans le code ci dessous (Xldown) ne supporte pas le fait que la ligne de départ soit vide il faut mettre " Cells(cells(65536,1).end(xlup).row+1,1).row à la place et cela devrait fonctionné.

Private Sub Ajouter_Click()
Clé = RetourInfo1.Value
If Clé <> "" Then
Réponse = MsgBox("Ajouter cet enregistrement ?", vbYesNo, "Ajout...")
If Réponse = vbYes Then
Clé = RetourInfo1.Value & "~~~" & RetourInfo2.Value
If Application.WorksheetFunction.CountIf(Range("C:C"), Clé) > 0 Then
MsgBox "Cette clé existe déjà dans la liste... Opération annulée."
Else
Cells(Cells(2, 1).End(xlDown).Row + 1, 1).Activate
EnvoiInfos
RetourInfos
End If
End If
Else
MsgBox "La clé de cet enregistrement n'est pas valide... Opération annulée."
End If
End Sub

Salim

 

[francis]

Bonjour à tous,

la correction de la ligne en gras est presque juste à ce détail près que en fin de ligne tu ne met pas " .Row "tu laisse " .Activate ", là, ça marche.

Cells(cells(65536,1).end(xlup).row+1,1).Activate


;-)