référence d'une cellule

[alias74]

Bonjour,

Ravi d'avoir eu la réponse à mon problème, me voici de nouveau avec un besoin de conseil :

Je fais une extraction d'une base de données qui me donne un tableau aléatoire au niveau de la place des colonnes :

ex: nom prénom adresse lieu - sur une extration
puis lieu prénom adresse nom - pour une autre extraction !

Mon but est de réarranger tout cela et d'extraire uniquement les colonnes qui m'intéressent en sachant que les noms des colonnes sont nombreux et très différents.

donc comment trouver la position de la colonne 'nom' pour la copier sur une autre feuille ??

Merci
frédo

 

[Tibo]

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

@+

 

[alias74]

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 !!

 

[mjo]

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

 

[alias74]

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

 

[alias74]

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 😉

 

[Pierrot93]

Re : référence d'une cellule

Bonsoir Allias

en un peu plus court

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

ou

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

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

bonne soirée
@+

 

[alias74]

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 ??

 

[Pierrot93]

Re : référence d'une cellule

Re Alias

tu parles du 1er code

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

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

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

 

[alias74]

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 🙂

 

[Pierrot93]

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.

@+