Discussion :

[Neliso]

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 :

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

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

[casefayere]

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

[Philippe Tulliez]

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 :

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

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

[Neliso]

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
Encore une fois, mille merci pour votre aide précisieuse; chuis trop trop contente!!!
Bonne continuation et merci pour vos lumières.
Neliso