Supprimer ligne et commentaire sous condition

[Lone-wolf]

Bonjour le Forum, 😀

Dans le fichier joint, j'aimerais supprimer dans la feuille Commentaires, la ligne correspondante à la cellule de la feuille Calendrier, ainsi que le commentaire.

Exemple : test2(Commentaires) correspond à test2(Calendrier).

Dans la feuille Data, seules les cellules des colonnes D et E sont éffacées; j'aimerais éffacer aussi celles de B et C, sachant qu'on ne peux pas étirer(EntireRow) les cellules à causes des formules qui se trouves dans les colonnes I et J.

Quand je fais une nouvelle inscription, les données sont copiées dans les cellules que je viens d'éffacer, au lieu de s'inscrire à la suite, je ne comprend pas pourquoi.


A+ 😎

 

[Lone-wolf]

Re : Supprimer ligne et commentaire sous condition

Rebonjour,

Voilà une énième tentative avec ce code

Sub efface()
Dim derl As Long, i As Long, j As Long, rech
Dim com As Worksheet, dat As Worksheet

On Error Resume Next
Set com = Sheets("Commentaires")
Set dat = Sheets("Data")
 derl = dat.Cells(65536, 4).End(xlUp).Row
With dat
For i = 2 To derl
   rech = .Cells(i, 4).Value
   j = com.Range("d:d").Find(rech).Row
     If .Cells(i, 1) = com.Cells(j, 4) Then
     com.Cells(i, 1).EntireRow.Delete
     End If
Next
End With
On Error GoTo 0

End Sub

Le problème c'est qu'il me supprime deux lignes et après plusieurs modifications, impossible de supprimer la bonne ligne.


A+ 😎

 

[Lone-wolf]

Re : Supprimer ligne et commentaire sous condition

Personne peux m'aider?? 😕



A+ 😎