Ajouter ligne automatiquement

G

G.David

Guest

• 12 Octobre 2004

• #2

Salut
ceci devrait marcher
(fait avec l'enregisteur de macro en mode relatifaprès on dépoussière)
sub ajout_ligne()
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
end sub
Cordialement
G.David

 

Vote positif 0 Vote négatif

Y

Yves

Guest

• 13 Octobre 2004

• #3

Bon l'ajout de ligne fonctionne très bien, merci.

Maintenant il me reste à passer mon Vlookup. qui aura comme référence la colonne C de la même ligne, il faut que la référence s'ajuste à chaque fois.

Avez-vous une idée ?

merci à l'avance.

 

Vote positif 0 Vote négatif

J

jhocquevelt

Guest

• 13 Octobre 2004

• #4

Bonjour Yves, bonjour G.David, bonjour à tous

Voici une répondre à la question

Sub InsertFormule()
Dim Ligne As Long
Ligne = ActiveCell.Row
Rows(Ligne + 1).EntireRow.Insert
Range("B" & Ligne + 1).Formula = "=VLOOKUP(C" & Ligne & ",'C:\Documents and Settings\[Macro.xls]Macro'!$A$1:$B$1703,2,FALSE)"
End Sub

Bonne prog

JHocquevelt

 

Vote positif 0 Vote négatif

G

G.David

Guest

• 13 Octobre 2004

• #5

Euh quékun peut éclairer ma lente herne
Qu'' est ce que l'instruction Vlookup dans les feuilles de calcul Excel est sensée faire?
Merci
G.David

 

Vote positif 0 Vote négatif

J

jhocquevelt

Guest

• 13 Octobre 2004

• #6

Bonjour G.David, Bonjour à tous

La fonction de feuille de calcul :
RECHERCHEV(valeur_cherchée;table_matrice;no_index_col;valeur_proche) se traduit par VLOOKUP en VBA. Les ";" sont remplacés par des virgules.

Cordialement

JHocquevelt.

 

Vote positif 0 Vote négatif

G

G.David

Guest

• 13 Octobre 2004

• #7

Merci
mon anglais est des plus succint 5/20 au BAC soit 20% de plus que ma moyenne générale de terminale ce qui me laisse beaucoup de blanc dans les traductions
Sincérement merci
G.David

 

Vote positif 0 Vote négatif