Copier texte par macro dans cellule

bonjour,

comment ajouter le ligne de commande qui écrit le texte "pas de notes" dans la cellule ("al62") lors de l'execution d une macro ?

Bonjour,

comme il y a une certaine ambiguïté entre la demande et le titre de ce sujet, par exemple en activant

le Générateur de macros puis en effectuant la manipulation : une base de code est livrée sur un plateau !

Range("al62") = "pas de notes"

bonjour,

je me permets d'écrire le tout petit bout de code:

 For Each c In Range("B6:B" & Range("B" & Rows.Count).End(xlUp).Row)
        If c.Value = Range("g43") Then                   

          If c.Row < 27 Then
          MsgBox ("effacement imposible")

            'Range(Cells(c.Row, "B"), Cells(c.Row, "F")).ClearContents
            Else 'rouge non effacé
            flag = 1
                Range(Cells(c.Row, "B"), Cells(c.Row, "e")).ClearContents 'efface 1ere partie tableau
                Range(Cells(c.Row, "g"), Cells(c.Row, "al")).ClearContents 'efface 2eme partie tableau

ligne qui ne marche pas : Range(Cells(c.Row, "al")) = "pas de notes"

            flag = 0
            End If
            Exit For
        End If
    Next c

End Sub

je n'arrive pas à écrire "pas de notes" dans la ligne variable en "al"...j'ai un retour erreur 400

Enlever Range car la propriété Cells suffit à elle seule, en jetant un œil à l'aide VBA …

salut et merci, c'était bien ça. C'est enregistré !

à+