Macro sur une colonne

Bonjour,

il parait qu'Isabelle et DanielC ont déjà répondu à ma demande mais je n'ai
aucune réponses visibles sur mon dernier poste.

j'ai du faire une fausse manip. Ainsi, je me permets de réitérer ma demande.
merci de votre compréhension.

J'ai une macro ci dessous :

Sub diag_en_cours()

Sheets("Previsionnel").Select
Selection.Cut
Sheets("Diag en cours").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("G2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Sheets("Previsionnel").Select
Selection.Delete Shift:=xlUp
'Insérer le numéro de commande du client dans Ne_pas_ouvrir
Sheets("Ne pas ouvrir").Select
Range("K:K").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(devis,'Attente de reglement'!C[-10]:C[-4],6,FALSE)"
Range("K3").Select
'supprimer le bouton dans le Previsionnel
Sheets("Previsionnel").Select
With ActiveSheet
For Each txt In .Shapes
If Left(txt.Name, 4) = "Text" Then
If txt.TextFrame.Characters.Text = "Transférer DEVIS dans DIAG
EN COURS" Then
txt.Delete
End If
End If
Next txt
End With

Sheets("Accueil").Select
End Sub

J'aimerais que cette partie de la macro se repete sur toute la colonne "K" :

'Insérer le numéro de commande du client dans Ne_pas_ouvrir
Sheets("Ne pas ouvrir").Select
Range("K:K").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(devis,'Attente de reglement'!C[-10]:C[-4],6,FALSE)"
Range("K3").Select


Que dois-je faire?

Merci pour votre aide.

JBF

Tu veux mettre la formule dans toute la colonne ?
Et qu'estce que représente "devis" ? le mot "devis" ou une variable ?
Essaie :

Sheets("Ne pas ouvrir").Select
Range("K:K").FormulaR1C1 = _
"=VLOOKUP(""devis"",'Attente de reglement'!C[-10]:C[-4],6,FALSE)"
Range("K3").Select

Cordialement.
Daniel

Bonjour,

il parait qu'Isabelle et DanielC ont déjà répondu à ma demande mais je
n'ai aucune réponses visibles sur mon dernier poste.

j'ai du faire une fausse manip. Ainsi, je me permets de réitérer ma
demande. merci de votre compréhension.

J'ai une macro ci dessous :

Sub diag_en_cours()

Sheets("Previsionnel").Select
Selection.Cut
Sheets("Diag en cours").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown
Range("G2").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
Sheets("Previsionnel").Select
Selection.Delete Shift:=xlUp
'Insérer le numéro de commande du client dans Ne_pas_ouvrir
Sheets("Ne pas ouvrir").Select
Range("K:K").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(devis,'Attente de reglement'!C[-10]:C[-4],6,FALSE)"
Range("K3").Select
'supprimer le bouton dans le Previsionnel
Sheets("Previsionnel").Select
With ActiveSheet
For Each txt In .Shapes
If Left(txt.Name, 4) = "Text" Then
If txt.TextFrame.Characters.Text = "Transférer DEVIS dans
DIAG
EN COURS" Then
txt.Delete
End If
End If
Next txt
End With

Sheets("Accueil").Select
End Sub

J'aimerais que cette partie de la macro se repete sur toute la colonne
"K" :

'Insérer le numéro de commande du client dans Ne_pas_ouvrir
Sheets("Ne pas ouvrir").Select
Range("K:K").Select
ActiveCell.FormulaR1C1 = _
"=VLOOKUP(devis,'Attente de reglement'!C[-10]:C[-4],6,FALSE)"
Range("K3").Select


Que dois-je faire?

Merci pour votre aide.

JBF