Autres Suppression et modification

[chilo27]

Bonsoir Le forum

Je souhaite enregistrer et modifier les entrées
mais je n'y arrive pas

Dans la listview les enregistements s'effacent mais pas dans la feuille
et les modifications ne se font pas

j'ai effectué plusieurs recherches je trouve des exemples, mais aucun pour m'aider
et qui répond à la difficulté

En vous remerciant grandement
par avance

 

[Jacky67]

Bonsoir Le forum

Je souhaite enregistrer et modifier les entrées
mais je n'y arrive pas

Dans la listview les enregistements s'effacent mais pas dans la feuille
et les modifications ne se font pas

j'ai effectué plusieurs recherches je trouve des exemples, mais aucun pour m'aider
et qui répond à la difficulté

En vous remerciant grandement
par avance

Bonjour,
Une piste
-Pour la modification
Aucune valeur n'est attribuée à la variable 'Maligne' : Valeur=0
A revoir
-Pour la suppression
La macro pourrait ressembler à ceci

Private Sub CommandButton1_Click() 'supprimer
    Dim SuppLigne As Long
    On Error Resume Next
    SuppLigne = UserForm2.ListView2.SelectedItem.index
    [BD_Clients].Rows(SuppLigne).Delete
    Unload Me
    UserForm2.Show
End Sub

ps: Attention aux utilisations intensif de ' On Error Resume Next', il vaut mieux éliminer les erreurs autant que l'on peut.
Bon courage pour la suite

 

[chilo27]

Bonjour le Forum, Jacky67

Pour la partie suppression fonctionne bien
mais pas la modification

Pour On error resume next,
sans son utilisation, j'ai un message " l'indice n'appartient pas à la sélection"

Merci pour l'aide

 

[Jacky67]

Bonjour le Forum, Jacky67

Pour la partie suppression fonctionne bien
mais pas la modification

Pour On error resume next,
sans son utilisation, j'ai un message " l'indice n'appartient pas à la sélection"

Merci pour l'aide

Re..
Ben Oui!!
Avec des 'on erreur resume next' , Excel fait fi de ces erreurs.
Quand cette instruction est utilisée, il faut absolument savoir, quelle erreur elle est supposée ignorer.
Dans cette macro tu fais référence à une feuille qui n'existe pas par:
Set f = ThisWorkbook.Sheets("Bd_clients")
Ensuite, comme déjà écrit
Aucune valeur n'est attribuée à 'Maligne' , qui est supposée être la ligne d'écriture
Si tu es à l'origine de ces macro, il te sera facile de faire ces modifications.

 

[chilo27]

Merci Jacky67

Pour les conseils je vais les mettre en pratique