Petite question sur une formule

Bonjour à tous,

J'ai une petite question à vous poser. J'ai la formule ci-dessous.

=RECHERCHEV(A1;Feuil2!B9:D20;14;FAUX)

La fonction Recherche V dans mon cas va me donner les informations situées en colonne 14. Est-ce possible d'entrer un chiffre en A8 (par exemple 15) et ainsi, la fonction Recherche V saura directement que désormais il faut nous sortir les résultats de la colonne 15, plutôt que de la 14. En gros, je souhaite dire à Recherche V, regarde le résultat inscris en A1.

Merci d'avance. Bonne journée à tous !!!!

Bonjour

Il me semble que ça fonctionne?

=RECHERCHEV(A1;Feuil2!B9:D20;$A$8;FAUX)

Avec une valeur numerique en A8

Bonjour CB60,

Merci pour ton aide. Alors la j'ai une deuxième question. Voici ma macro:

Sub Macro3()
'
' Macro3 Macro

'
    Columns("V:V").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

Est-ce possible de dire, au lieu de Columns("V:V").Select, puis-je dire, la lettre située dans la case T1 de la feuil2?

J'ai essayé ceci

C    Columns("Feuil2!$T$1:Feuil2!$T$1").Select

... mais ça ne marche pas.

Avez vous une idée? Merci d'avance.

[/code]

re

essai cela?

Sub Macro3()
toto = Sheets("Feuil2").[T1].Value
    Columns(toto & ":" & toto).Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    ActiveSheet.Paste
    Application.CutCopyMode = False
End Sub

OU

Sub Macro3()
toto = Sheets("Feuil2").[A1].Value
    Columns(toto & ":" & toto).Copy
    Columns(toto & ":" & toto).PasteSpecial Paste:=xlPasteValues
    Application.CutCopyMode = False
End Sub

Ca marche nikel.

Merci beaucoup pour ton aide. J'ai une toute dernière question, facile cette fois.

Quelle est la différence entre

.PasteSpecial Paste:=xlPasteValues 

et 

Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False 

Merci beaucoup pour ton aide et tes astuces.

re

Lorsque tu crée une macro avec l'enregistreur il te met des infos que l'on a pas besoin pour la réalisation de l'opération souhaité, je les ai seulement enlevé, si tu avais choisi d'autre critere dans ton collage spécial, je n'aurais pas enlevé certaines des infos

Ok d'accord. Bon ben merci Bonne journée à toi.

J'ai encore une autre question (désolé) ...

Donc j'ai ceci:

    Columns(toto & ":" & toto).Select 

Maintenant je souhaite selectionner la case 2 de la colone toto. En gros toto2.

Peut-être qu'on ne peut pas faire ça? Je ne sais pas. Merci pour vos réponses.

Re

Pas trop compris

Peut être comme cela:

Range(toto & 2).Copy
Range(toto & 2).PasteSpecial Paste:=xlPasteValues

Re CB60,

Je me suis mal exprimé. Donc en fait, j'ai la case C1 par exemple, qui me dis, la lettre de la colonne à étudier. toto = la lettre de la case C1. Par exemple : toto = V

Quand je change, la lettre dans la case C1, toto = D par exemple. Maintenant, mon but est de sélectionner la cellule2 de toto. Par exemple (imaginons toto = V), je veux sélectionner la cellule V2. Mais je ne sais pas comment écrire cela en langage Excel.

Un truc du genre

    Range("toto2").Select

Suis-je plus clair? Merci.

re

Je ne comprend plus ce que tu souhaite!!

Ce que je te propose prend bien la valeur V pour la colonne choisi et le 2 nous sert bien à choisir V2

toto= V

la macro:

Range(toto & 2).Copy 
Range(toto & 2).PasteSpecial Paste:=xlPasteValues
=
Range("V2").Copy 
Range("V2").PasteSpecial Paste:=xlPasteValues

C'est bon, j'ai trouvé la solution.

    Range(copiage & 2).Select

Désolé je n'arrivais pas bien à m'exprimer. Encore merci! Bonne journée

Ah mince, j'ai encore une question, je veux comparer deux celulles.

Voici mon code :

    toto = Sheets("Feuil1").[G1].Value
    If 2009!(toto & 4) = feuil1!C4 Then

Il semble y avoir un problème .... La deuxième ligne n'est pas correctement écrite. Pouvez-vous me dire comment l'écrire correctement ?

Merci d'avance.

Bonjour,

J'ai encore une autre question .... désole de vous en poser autant.

    toto = Sheets("Feuil1").[G1].Value 
    Range(toto & 6:toto & 86").Select

Apparemment il y a une erreur de frappe dans la deuxième ligne. Merci d'avance pour votre aide.

re

Désolé mais pour t'aider plus que ça, tu devrais mettre un fichier avec ce que tu souhaite parce que la je ne sais plus

Salut,

En, fait c'est juste un problème d'écriture, je n'arrive pas encore bien à écrire mes lignes de codes.

Par exemple, dans cette formule :

    toto = Sheets("Feuil1").[G1].Value 
    Range(toto & 6:toto & 86").Select

Excel me dit que la deuxième ligne est mal écrite et qu'il n'arrive pas à la comprendre .... Je veux sélectionner plusieurs cellules de la cellule 2 à la cellule 86. Mais apparemment c'est mal écrit.

Merci d'avance.

re

Peut être cela:

Range(toto & 6 & ":" & toto & 86).Select

Bonjour,

Cette fois c'est bon ... tout ça pour deux & J'ai encore des choses à apprendre.

Bonjour,

J'ai un problème sur Excel ... un de plus

Je souhaite vérifier que la valeur d'une cellule est identique à une autre.

C'est la cellule 2 de la colonne de la valeur toto (ex : toto = G)

If 2009!(toto & 4) = feuil1!C4 Then ...

Excel me dis que ceci n'est pas bien écrit : 2009!(toto & 4) = feuil1!C

Comment devrais-je écrire cela?

Merci d'avance.

Bonjour

Je pense que ça devrait être comme cela :

If Sheets("2009"). Range(toto & 4) = Sheets("feuil1").range ("C4") Then