Discussion :

[dvdhag123]

Bonjour?
J'ai un code et j'aimerais bien qu'il s’exécute jusqu'au bas de mon tableau (prenant pour référence la fin de la colonne A)
Mais je ne sait pas comment faire j'ai lu la formule sur internet " end(xldown)"
Mais je ne sait pas du tout comment l'utiliser.

Voici mon code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub Avec_NomPrenom_V2()
 
  Range("N2").FormulaLocal = "=RECHERCHEV(A2;WW!A:M;2;FAUX)"
  Range("N2").AutoFill Range("N2:N2652")
 
    Range("O2").FormulaLocal = "=RECHERCHEV(A2;WW!A:M;1;FAUX)"
  Range("O2").AutoFill Range("O2:O2652")
 
End Sub

ET

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub Si()
 
Range("K2").FormulaLocal = "=SI(J2=""A-1"";""A 1 "";SI(J2=""A-2"";""A 2 "";SI(J2=""A-3"";""A 3 "";SI(J2=""B-1"";""B 1 "";SI(J2=""B-2"";""B 2 "";SI(J2=""B-3"";""B 3 "";SI(J2=""C-1"";""C 1 "";SI(J2=""C-2"";""C 2 "";SI(J2=""C-3"";""C 3 "";SI(J2=""D-1"";""D 1 "";SI(J2=""D-2"";""D 2 "";SI(J2=""D-3"";""D 3 "";SI(J2=""E-1"";""E 1 "";SI(J2=""E-2"";""E 2 "";J2))))))))))))))"
Range("K2").AutoFill Range("K2:K2652")
 
End Sub

[Daniel.C]

Bonjour,

D'où sors-tu "2652" ?

[dvdhag123]

J'ai mis 2652 car dans un premier cas s'était la fin de mon tableau

[Daniel.C]

En supposant que la colonne A fasse partie du tableau :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Dim DerLigne As Long
  DerLigne = Range("A2").End(xlDown).Row
  Range("N2").FormulaLocal = "=RECHERCHEV(A2;WW!A:M;2;FAUX)"
  Range("N2").AutoFill Range("N2", Range("N2:N" & DerLigne))

Complète le reste.

[dvdhag123]

Merci