aide sur macro vba

Version imprimable

aide sur macro vba

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

ci joint le code
Code:

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 :cry::cry::cry:

27/09/2012, 10h35
Philippe Tulliez

Bonjour,
Lire ici dans la faq
27/09/2012, 10h53
bigokou

merci pour le faq je l enregistre dans mes favoris:mouarf::mouarf:

mais je n arrive pas a trouver ce que je recherche
27/09/2012, 11h15
Philippe Tulliez

Bonjour,
Si j'ai bien lu

Citation:

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.
27/09/2012, 11h33
bigokou

ok je vais essaye d etre plus clair:roll::roll:

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

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:

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.

27/09/2012, 11h42
Philippe Tulliez

Bonjour,

Citation:

Envoyé par bigokou

ok je vais essaye d etre plus clair:roll::roll:
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é.
27/09/2012, 11h54
thomaz

Citation:

Envoyé par corona

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.
27/09/2012, 12h15
bigokou

merci pour la reponse si j ai lu le faq mais tres complexe mais utile vous prenez pas la tete messieurs :ccool::ccool::ccool:
27/09/2012, 12h42
Philippe Tulliez

Bonjour,

Citation:

Envoyé par thomaz

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.
27/09/2012, 18h23
Sogestion

Citation:

Envoyé par thomaz

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
02/10/2012, 09h30
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