Macro VBA "Selection.Offset"

Salut!

Je souhaiterais que quelqu'un m'éclaire sur ma macro qui consiste à effacer une ligne qui commence de la colonne A et se termine à la colonne F !

Voici mes champs: N°chrono/Nom/Prénom/Date_Nais/Date_Entrée/Adresse.
La macro recherche le N°chrono et dès qu'elle l'a trouvé, l'efface et la remplace par la nvelle ligne (pour laquelle le champ Date_Nais a été modifié).

Code:

---

1 2 3

Range(Selection, Selection.Offset(0, 4)).Select Selection.ClearContents

---

Or, je ne voudrais pas qu'elle efface complètement la ligne mais seulement à partir du champ Date_Nais! En fait, seulement à partir des champs susceptibles d'être modifiés!

J'espère avoir été claire dans la formulation de mon problème.

D'avance merci.

Neliso

Bonjour,
as-tu déjà préparé quelquechose ? car "selection" peut te tromper

selection est la selection active et non le résultat de ta recherche

Bonjour,
Voici un exemple à adapter, d'une recherche sur la plage $A$1:$A$8 d'une chaine de caractères "A7" et ensuite effacement des valeurs des cellules de la colonne D & E sur la même ligne

Code:

---

1 2 3 4 5 6

Dim sht As Worksheet: Set sht = ThisWorkbook.Worksheets("Feuil1") Dim rng As Range: Set rng = sht.Range("A1:A8") Dim nChrono$: nChrono = "A7" With rng.Find(nChrono) Range(.Offset(0, 3), .Offset(0, 4)).ClearContents End With

---

Merci beaucoup casefayere et particulièrement corona pour vos réponses!
Je viens de tester votre exemple et c'est exactement ce que je voulais:P
Encore une fois, mille merci pour votre aide précisieuse; chuis trop trop contente!!!
Bonne continuation et merci pour vos lumières.
Neliso