référence d'une cellule

Tibo

XLDnaute Barbatruc

• 19 Décembre 2006

• #2

Re : référence d'une cellule

Salut Alias,

Pas sûr d'avoir bien compris.

La fonction EQUIV pourrait répondre à ton problème :

=EQUIV("Nom";plage_cellule;0)

donne le rang de la cellule qui contient le mot "Nom".

Reviens avec un fichier si c'est pas ce que tu souhaites.

A te lire

@+

 

Vote positif 0 Vote négatif

A

alias74

Guest

• 19 Décembre 2006

• #3

Re : référence d'une cellule

bonjour,

Bonne pioche !! c'est effectivement une bonne piste !

Je continue :
une fois que j'ai le n° de la colonne, comment sélectionner cette colonne :

Ex: la fonction Equiv ("nom";A1:Z1;0) donne la valeur 4 (donc 4ème colonne soit la D)
Je voudrais copier la colonne selon la fonction suivante :

Range("D2😀" & lignedata).Copy (lignedata étant le nombre de ligne)

comment faire correspondre le '4' avec le 'D'

merci,
Frédéric ... quelle rapidité ce forum !!

 

Vote positif 0 Vote négatif

M

mjo

XLDnaute Impliqué

• 19 Décembre 2006

• #4

Re : référence d'une cellule

Bonjour,

Par formule, comme ceci :

=CAR(EQUIV("nom";A1:Z1;0)+64)

Attention toutefois de ne pas dépasser la lettre Z, après il y a encore moyen, mais la formule devient un peu plus longue.

mjo

 

Vote positif 0 Vote négatif

A

alias74

Guest

• 27 Décembre 2006

• #5

Re : référence d'une cellule

Hello,

merci, Merci !!! exactement ce que je souhaitais ! Reste plus qu'à l'inclure dans mes marcros 😱

J'avance donc doucement dans mon projet, j'ai de nouveau une problématique pour simplifier le code :

Comment faire pour remplacer une fonction

Select Case Range("D3") -> D3 case définie pour le mois Ex: Jan
Case "Jan"

Sheets("temp").Select
Cells.Select
Selection.Copy
Sheets("Jan").Select
Cells.Select ... Avec autant de case que de mois : 12 :-(


Par : Sheets("temp").Select
Cells.Select
Selection.Copy
Sheets(Temp!D3).Select -> je ne connais pas la syntaxe 😕
Cells.Select

thank's
Frédéric

 

Dernière modification par un modérateur: 27 Décembre 2006

Vote positif 0 Vote négatif

A

alias74

Guest

• 27 Décembre 2006

• #6

Re : référence d'une cellule

Super 😀 je me fais moi même mes rèponses ... 😎

j'ai enfin trouvé la synthaxe pour sélectionner une feuille en fonction de la valeur d'une cellule :


Set nom = Range("A1")


Worksheets("" & nom).Activate

Je ne sais pas si c'est dans les règles de l'art VB mais ça fonctionne : Youpi !!


Alias74 : Heureux ! <- il ne lui faut pas grand chose 😉

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2006

• #7

Re : référence d'une cellule

Bonsoir Allias

en un peu plus court

Code:

Set nom = Range("A1")
Worksheets(nom).Activate

ou

Code:

Worksheets(Range("A1").value).Activate

j'avais regardé ton post, mais j'avais pas bien compris ta demande...

bonne soirée
@+

 

Vote positif 0 Vote négatif

A

alias74

Guest

• 27 Décembre 2006

• #8

Re : référence d'une cellule

re...

ben ... chez moi ça ne marche pas si je ne mets pas les "" &
bizarre ???

as-tu une explication ??

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2006

• #9

Re : référence d'une cellule

Re Alias

tu parles du 1er code

essaye plutôt comme ceci, c'est plus propre :

Code:

Sub test()
Dim nom As String
nom = Range("A1").Value
Worksheets(nom).Activate
End Sub

Edition : Explication, j'ai été un peu vite
@+

 

Vote positif 0 Vote négatif

A

alias74

Guest

• 27 Décembre 2006

• #10

Re : référence d'une cellule

j'avais aussi essayé comme cela :

Dim nom As String
nom = Range("A1").Value
Worksheets(nom).Activate

mais ne penses-tu pas que cela dépend aussi du format de "A1" ??

merci encore pour ces tuyaux 🙂

 

Vote positif 0 Vote négatif

Pierrot93

XLDnaute Barbatruc

• 27 Décembre 2006

• #11

Re : référence d'une cellule

Re

là, comme ca je vois pas, tu as quelle valeur en A1, le nom de feuille n'existe t il pas déjà ou les caractères utilisés ne sont pas autoriser dans le nom.

mets ton fichier en pièce jointe sinon.

@+

 

Vote positif 0 Vote négatif