Microsoft 365 [RESOLU] Effacer le contenu de cellules en fonction des numéros de lignes

[ivan27]

Bonjour à tous,

Pourriez vous m'aider pour mon petit problème.
Dans le classeur en pièce jointe, j'ai 2 feuilles
- 1 feuille ''Ville'' avec en colonne F des noms de communes
- 1 feuille ''Ligne'' avec en colonne A des numéros de lignes de la feuille "Ville".
Je souhaite effacer le contenu de la cellule colonne F correspondant au numéro de ligne.
Merci d'avance pour votre aide
Ivan

 

[Robert]

Bonjour Ivan, bonjour le forum,

Peut-être comme ça :

Sub Macro1()
Dim OV As Worksheet 'déclare la variable OV (Onglet Villes)
Dim OL As Worksheet 'déclare la variable OL (Onglet Lignes)
Dim TV As Variant 'déclare la variable TV (tableau des Valeurs)
Dim I As Integer 'déclare la variable I (Incrément)

Set OV = Worksheets("Villes") 'définit l'onglet OV villes
Set OL = Worksheets("ligne") 'définit l'onglet OL lignes
TV = OL.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 1 To UBound(TV, 1) 'boucles sur toutes les ligne I du tabeau des valeurs TV
    OV.Cells(CInt(OL.Cells(I, 1).Value), "F").ClearContents 'supprime le contenu de la cellule ligne I colonne "F" de l'onglet OV
Next I 'prochaine ligne de la boucle
End Sub

 

[ivan27]

Re bonjour le forum, Robert,
Parfait merci beaucoup.
Bonne fin de journée
Ivan