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

[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.

[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é.

[thomaz]

Bonjour,

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

je comprends que cela puisse énerver quand des personnes ne recherche pas dans les FAQ, mais je trouve encore plus énervant les réponses de ce type. Si tu as la réponse, pourquoi ne mets-tu pas le code ?

Peux-être que si tu expliquais d'une autre façon il comprendrait mieux.

[bigokou]

merci pour la reponse si j ai lu le faq mais tres complexe mais utile vous prenez pas la tete messieurs

[Philippe Tulliez]

Bonjour,

je comprends que cela puisse énerver quand des personnes ne recherche pas dans les FAQ, mais je trouve encore plus énervant les réponses de ce type. Si tu as la réponse, pourquoi ne mets-tu pas le code ?
Peux-être que si tu expliquais d'une autre façon il comprendrait mieux.

Je ne vais pas polémiquer mais j'ai plus de 1500 interventions sur ce forums en un peu plus d'un an et j'ai déjà donné plus d'un code et aidé plusieurs personnes en y consacrant de nombreuses heures alors que mon métier est dans vivre.
De plus, je n'ai pas écrit cherche dans la faq en donnant son url mais bien le lien direct qui parlait de ce sujet. Sujet qui entre parenthèses est traité plusieurs fois par semaine sur ce forum.

[Sogestion]

je comprends que cela puisse énerver quand des personnes ne recherche pas dans les FAQ, mais je trouve encore plus énervant les réponses de ce type. Si tu as la réponse, pourquoi ne mets-tu pas le code ?

Peux-être que si tu expliquais d'une autre façon il comprendrait mieux.

Bonjour,

Désolé mais votre remarque est totalement désobligeante lorsque l'on connait non seulement le dévouement de l'intéressé mais également sa disponibilité pour aider les membres

[thomaz]

@corona et sogestion:

ne le prenez pas mal, ce n'était pas du tout mon intention ! Je suis ce forum depuis bientôt 10 ans, toujours avec passion, et je sais bien que ce sont des gens comme vous qui font vivre ce forum.
Je ne pensais pas que ma remarque serait si mal interprétée. Je ne cherche pas du tout à polémiquer, je voulais juste donner un avis que je constate souvent sur les forums, à savoir : les gens qui renvoie vers une FAQ. En général avant de poser une question, la personne regarde dans la FAQ, donc si elle la pose c'est peut-être qu'elle n'a pas ou mal compris la FAQ. Et parfois le fait d'expliquer d'une autre façon peut aider à comprendre.

Donc excusez-moi si ma remarque vous a "offensé", ce n'était pas le but.

ToM