Macro sur une colonne

Le
JBF
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Daniel.C
Le #17792871
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


JBF
Le #17798381
merci

"Daniel.C" %
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






Publicité
Poster une réponse
Anonyme