faire lien entre "split" et "target"

Efgé

XLDnaute Barbatruc

• 3 Mars 2015

• #2

Re : faire lien entre "split" et "target"

Bonjour gadlun

Une proposition:

VB:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'Si la cellule (Traget) est dans la plage $C$4:$L$13
If Not Intersect(Target, Range("$C$4:$L$13")) Is Nothing Then
    'En cas d'erreur on passe (si la feuille n'éxiste pas)
    On Error Resume Next
    'On active la feuille qui a pour nom le deuxième mot
    Sheets(Split(Target.Value)(1)).Activate
End If
End Sub

Cordialement

 

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 3 Mars 2015

• #3

Re : faire lien entre "split" et "target"

Merci à vous !!!!!!!!!!!!!!!!!!!!
Ca marche ! (quelle réactivité en plus...)

 

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 3 Mars 2015

• #4

Re : faire lien entre "split" et "target"

Encore une petite question apparue à l'usage de la super formule d'Efgé : que faudrait-il ajouter à sa formule pour qu'elle continue de fonctionner sur des cellules fusionnées ? (aussi bien horizontalement que verticalement mais toujours au plus d'une seule cellule)

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 3 Mars 2015

• #5

Re : faire lien entre "split" et "target"

Re
Un fichier exemple plus proche de la réalité serait nécessaire.
Cordialement

 

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 3 Mars 2015

• #6

Re : faire lien entre "split" et "target"

Je crois avoir trouvé la réponse (si cela pourra intéressé quelqu'un à l'avenir) : if faut remplacer dans la formule d'Efgé "Target.value" par "Target.Resize(1, 1).value"
Une dernière question (pour finauder...)🙄
Et lorsque les mots sont séparés par des "retour charriot" et non un espace ? comment le reconnaître ?

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 3 Mars 2015

• #7

Re : faire lien entre "split" et "target"

Bonjour;

moi je suggérerais de NE PAS fusionner les cellules ,mais de centrer sur plusieurs colonnes si possible 🙂
sauf erreur un retour chariot est chr(10) ou chr(13)
si tu ne connais pas, essaye avec chr(65) tu verras ce que ça donne ...
P.

 

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 3 Mars 2015

• #8

Re : faire lien entre "split" et "target"

En fait, c'est que je n'ai pas trop le choix. Je dois utiliser des cellules fusionnées, sinon c'est vrai, je m'en passerai bien !
Pas de réponse pour ma question du retour charriot ?

 

Vote positif 0 Vote négatif

gosselien

XLDnaute Barbatruc

• 3 Mars 2015

• #9

Re : faire lien entre "split" et "target"

gadlun à dit:

En fait, c'est que je n'ai pas trop le choix. Je dois utiliser des cellules fusionnées, sinon c'est vrai, je m'en passerai bien !
Pas de réponse pour ma question du retour charriot ?

Cliquez pour agrandir...

un retour chariot est chr(13) comme indiqué plus haut.... il faut tester s'il est dans la cellule 🙂

 

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 3 Mars 2015

• #10

Re : faire lien entre "split" et "target"

Oui, mais comment faire ce test par rapport à cette formule de Efgé ? (je ne suis pas spécialiste du tout !!!)

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Cancel = True
'Si la cellule (Traget) est dans la plage $C$4:$L$13
If Not Intersect(Target, Range("$C$4:$L$13")) Is Nothing Then
'En cas d'erreur on passe (si la feuille n'éxiste pas)
On Error Resume Next
'On active la feuille qui a pour nom le deuxième mot
Sheets(Split(Target.Value)(1)).Activate
End If
End Sub

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 3 Mars 2015

• #11

Re : faire lien entre "split" et "target"

Re
Je me répète...

Efgé à dit:

Re
Un fichier exemple plus proche de la réalité serait nécessaire.
Cordialement

Cliquez pour agrandir...

Cordialement

 

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 3 Mars 2015

• #12

Re : faire lien entre "split" et "target"

Oups ! Pardon. Voici le fichier (sur le principe). J'espère être arrivé à envoyer le fichier...

 

Pièces jointes

• essai.xlsm

  17.9 KB · Affichages: 22
• essai.xlsm

  17.9 KB · Affichages: 20
• essai.xlsm

  17.9 KB · Affichages: 19

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 4 Mars 2015

• #13

Re : faire lien entre "split" et "target"

Bonjour à tous

Bon....
Où sont les cellules fusionnées?

Pour le split sur un retour chariot il faut, comme indiqué par gosselien, utiliser Chr(10), donc :

VB:

 Sheets(Split(Target.Resize(1, 1).Value, Chr(10))(1)).Activate

Mais... ....comme "BBB" n'est pas "BBB "
il faut supprimer les espaces superflux:

VB:

Sheets(Trim(Split(Target.Resize(1, 1).Value, Chr(10))(1))).Activate

Cordialement

 

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 4 Mars 2015

• #14

Re : faire lien entre "split" et "target"

Bonjour Efgé,
Sauf erreur de ma part (ce qui est plus qu'envisageable), cette dernière formule ne fonction pas...
Je me suis demandé du coup si ce n'était pas la manière de faire un retour charriot qui était en cause (cellules colorées) : j'ai laissé en coloré les deux manières, soit un introduisant un car(10), soit en faisant alt+enter... mais apparemment, c'est autre chose...
Cette fois-ci, j'ai fusionné les cellules !
Merci pour votre patience en tout cas !

 

Pièces jointes

• essai.xlsm

  18.2 KB · Affichages: 13
• essai.xlsm

  18.2 KB · Affichages: 16
• essai.xlsm

  18.2 KB · Affichages: 14

Vote positif 0 Vote négatif

G

gadlun

XLDnaute Nouveau

• 4 Mars 2015

• #15

Re : faire lien entre "split" et "target"

Efgé, laissez tomber. Je viens de comprendre ! C'est parfait en l'état ! 100000000000 merci à vous tous !!!

 

Vote positif 0 Vote négatif