Discussion :

[bigokou]

Bonjour je reviens encore vers vous car j ai reussi a moitier mon code

ci joint le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
sub macro4

  
   
    sheets("GLOBAL").Select
    For i = 14 To 20
        If Cells(1, i) = Fich Then Exit For
    Next
    Cells(2, i).Select
    ActiveCell.Formula = _
        "=IF(ISNA(VLOOKUP(A2," & Fich & "!A:A,1,FALSE)),"""",""OK"")"
    Selection.AutoFill Destination:=Range(Cells(2, i), Cells(1050, i))    
    Columns(i).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End sub

cette macro a pour but de verifier si dans l onglet global j ai bien les cap qui sont dans l onglet fev2012

le probleme est que je voudrais remplacer la valeur en dur que j ai mis a ce moment du code Cells(1050, i)) 1050 represente le nombre de lignes dans global que pourrais mettre car il se peut que les lignes augmente et cela voudrais dire qu a chaque je devrais remettre en dur le nombre de ligne que j ai

[Philippe Tulliez]

Bonjour,
Lire ici dans la faq

[bigokou]

merci pour le faq je l enregistre dans mes favoris

mais je n arrive pas a trouver ce que je recherche

[Philippe Tulliez]

Bonjour,
Si j'ai bien lu

le probleme est que je voudrais remplacer la valeur en dur que j ai mis a ce moment du code Cells(1050, i)) 1050 represente le nombre de lignes dans global que pourrais mettre car il se peut que les lignes augmente et cela voudrais dire qu a chaque je devrais remettre en dur le nombre de ligne que j ai

Tu cherches le nombre de lignes utilisées ?
Et bien si tu prends la peine de lire le lien que je t'ai donné, tu auras la réponse ou alors explique mieux ce que tu cherches.

[bigokou]

ok je vais essaye d etre plus clair

acutellement mon fichier fait 1050 ligne pour que la formule fonctionne j ai du ecrire le nombre de ligne, il se peut que son nombre change,
donc je voudrais adapter en fonction du code que j ai ecrit un code qui me permettrais de mettre directe le nombre de ligne

[Philippe Tulliez]

Bonjour,

ok je vais essaye d etre plus clair
acutellement mon fichier fait 1050 ligne pour que la formule fonctionne j ai du ecrire le nombre de ligne, il se peut que son nombre change,
donc je voudrais adapter en fonction du code que j ai ecrit un code qui me permettrais de mettre directe le nombre de ligne

J'avais donc bien compris ce que tu cherchais et la réponse est dans le lien que je t'ai donné.

[gFZT82]

Bonjour,

Si j'ai bien compris ta demande, tu dois effectivement trouver la réponse avec le lien indiqué par corona.
Voici une possibilité.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub macro4()
    With Sheets("GLOBAL")
        'Recherche du numéro de la dernière ligne renseignée dans la colonne A
        DerLig = .Range("A" & .Rows.Count).End(xlUp).Row
        For i = 14 To 20
            If .Cells(1, i) = Fich Then Exit For
        Next
        .Cells(2, i).Formula = "=IF(ISNA(VLOOKUP(A2," & Fich & "!A:A,1,FALSE)),"""",""OK"")"
        .Cells(2, i).AutoFill Destination:=.Range(.Cells(2, i), .Cells(DerLig, i))
        .Columns(i).Copy
        .Columns(i).PasteSpecial Paste:=xlPasteValues
    End With
    Application.CutCopyMode = False
End Sub

Cordialement.