Discussion :

[nanar355]

Bonsoir le forum,
Je suis nouveau et peu expérimenté en VBA excel. Mon problème est le suivant:
lorsque je supprime une ligne de mon tableau des noms, "Sheet1" ou que je la modifie, je souhaiterais que les onglets portant le même nom ou ayant été modifiés soit mis à jour ou supprimés. 2ème problème la colonne (K) du même tableau ne fonctionne pas avec la textbox qui lui est dédiée. Par avance merci à vous tous qui prenez du temps pour aider des débutants un peu perdus.

[Bear the french]

Bonsoir,

Pour répondre à ta première question :
"lorsque je supprime une ligne de mon tableau des noms, "Sheet1" ou que je la modifie, je souhaiterais que les onglets portant le même nom ou ayant été modifiés soit mis à jour ou supprimés."

J'ai modifié la macro liée au bouton de suppression :

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
19
20
21
22
23
24
25
26
Private Sub CmdSup_Click()
Dim CTRL As Control 'Variable pour la collection des controls
Dim i As Integer
Dim Response As Byte
Dim sh As String
'Ici un message demandant d'accepter la suppression en les listant
Response = MsgBox("Les coordonnées de " & vbCrLf & vbCrLf & _
                   "Nom : " & CmbNom & vbTab & vbCrLf & vbCrLf & _
                   "Vont être définitivement Supprimées ? ", vbCritical + vbOKCancel, T)
 
'Si Réponse OK on continue
If Response = 1 Then
 
    Application.DisplayAlerts = False
          Sheets(Ws.Range("B" & Me.CmbNom.ListIndex + 3).Value & " " & Ws.Range("C" & Me.CmbNom.ListIndex + 3).Value).Delete
    Application.DisplayAlerts = True
    'ici avec la Feuille on va faire :
    Ws.Rows(Me.CmbNom.ListIndex + 3).EntireRow.Delete
 
    Ini 'On lance la réinitialisation du UserForm (Macro en haut du Module)
'Si Réponse Annulation on envoie un message et on a rien fait
Else: MsgBox "Opération annulée", vbInformation, T
End If
 
'Application.Run ("TrierOnglets")
End Sub

En fait, j'ai juste rajouté ça au bon endroit :

Code :

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

1
2
3
    Application.DisplayAlerts = False
          Sheets(Ws.Range("B" & Me.CmbNom.ListIndex + 3).Value & " " & Ws.Range("C" & Me.CmbNom.ListIndex + 3).Value).Delete
    Application.DisplayAlerts = True

Cela ne fonctionne que pour la suppression et pas pour la modification.

Bertrand

[nanar355]

Bonjour à tous,
Tout d"abord un grand merci à Bertrand qui à répondu très rapidement et à une heure vraiment très tôt ou très tard. A travers toi je remercie tous les bénévoles qui oeuvrent sans compter. Ton bout de code ainsi que quelques infos glanées de-ci de-là m'ont permis de terminer mon petit programme. Peut être pas de façon très pro pour un programmeur mais moi moi cela est suffisant
et ça fonctionne. Encore Merci à toi et à tous les autres volontaires.
Bernard.