Modifier la valeur d'une ou plusieurs cellules VBA

Bonjour,

J'ai été débutant il y a quelques années en VBA (Word) et je me souviens vaguement de la grammaire mais pas du vocabulaire

Je souhaiterais établir la macro suivante sur un fichier excel dont les étapes seraient les suivantes :

Mon explication en Français est la suivante :

Quand je clique sur une cellule

Afficher une valeur quelconque (par exemple un x pour montrer que cette cellule a été cochée)

Variables

Soit x le numéro de ligne correspondant à la cellule sélectionnée

Soit y la valeur de la première colonne de la ligne correspondant à la cellule sélectionnée

Soit i = nombre entier

Pour i=2 jusqu'à x-1

Si valeur de la cellule (Ligne i, Colonne 1)=y

Alors valeur de la cellule (Ligne i, Colonne 11)=""

Sinon i=i+1

Si quelqu'un sur le forum avait la gentillesse de me traduire cette macro j'en serais très heureux

Bien cordialement

Bonjour,

Essaye avec ça :

Sub test()
    x = 10 'variable à initialiser selon le cas réel
    y = 100 'variable à initialiser selon le cas réel
    For i = 2 To x - 1
        If Cells(i, 1) = y Then
            Cells(i, 11) = ""
        End If
    Next i
End Sub

Bonjour le fil, bonjour le forum,

J'aurais plutôt écrit comme ça :

Sub Macro1()
Dim X As Integer 'déclare la variable X
Dim Y As Variant 'déclare la variable Y
Dim I As Integer 'déclare la variable I

X = ActiveCell.Row 'définit la variable X
Y = Cells(X, 1).Value 'définit la variable Y
For I = 2 To X - 1 'boucle des lignes 2 à X-1
    If Cells(I, 1) = Y Then Cells(I, 11) = "" 'si la cellule ligne I colonne 1 est égale à Y, alors la cellule ligne I colonne 11 est effacée
Next I 'prochaine ligne de la boucle
End Sub

Merci beaucoup pour vos réponses !!!

C'est exactement ce que je voulais j'avais peur de ne pas arriver a bien expliquer ce que j'avais en tête !

Me souvenais plus trop de la syntaxe précise

Je vais tester ca lundi et je vous tiendrai au courant

Bien Cordialement

Ca fonctionne parfaitement

Je vous remercie