Récupérer des données dans un Userform en cliquant sur une cellule

Version imprimable

30/08/2022, 19h19
Tony4152

2 pièce(s) jointe(s)

Récupérer des données dans un Userform en cliquant sur une cellule

Bonjour, j’ai des cellules dans un tableau qui contiennent les données sous le format suivant :

Pièce jointe 624625

Pièce jointe 624626

J’aimerai, en double cliquant sur la cellule, faire apparaître un Userform muni de différentes textbox dans lesquelles s’afficheront le 12, le 00, la phrase 1-VOLTIGE, le 2 de FH, le 1 de FC, le 4 de LDG, le 14 et le 00.
De cette manière, une fois toutes les données remplies, le bouton Création se dégrise et si je peux modifier les données via ce même Userform pour les réinscrire dans cette même cellule.

J’ai beau réfléchir, à part avoir le cerveau en ébullition, moi je sèche 😞

Merci pour vos retours. 👍🏻

Essayer ce code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
Sub extraction()    'Tony4152_20220830
    Dim myStr As String
    Dim vct() As String
    Dim pos, pos1, pos2 As Long
 
    'Vous devez stocker le contenu de votre cellule dans la variable "myStr"
    'Exemple : myStr = ThisWorkbook.Sheets("Feul1").Range("A1")
    'Ici, j'ai mis le contenu de votre exemple dans la variable "myStr"
 
    myStr = "12H00Z1-VOLTIGE2FH1FC4LDG14H00Z"
    'Récupérer le 12, le 00, la phrase 1-VOLTIGE, le 2 de FH, le 1 de FC, le 4 de LDG, le 14 et le 00
 
    ReDim vct(7)
    'récupérer le 12
    vct(0) = IIf(Asc(Mid(myStr, 1, 1)) > 47 And Asc(Mid(myStr, 1, 1)) < 58, Left(myStr, 1), "")
    vct(0) = vct(0) & IIf(Asc(Mid(myStr, 2, 1)) > 47 And Asc(Mid(myStr, 2, 1)) < 58, Mid(myStr, 2, 1), "")
    vct(0) = vct(0) & IIf(Asc(Mid(myStr, 3, 1)) > 47 And Asc(Mid(myStr, 3, 1)) < 58, Mid(myStr, 3, 1), "")
 
    'récupérer le 00
    pos = InStr(1, myStr, "H") + 1
    vct(1) = IIf(Asc(Mid(myStr, pos, 1)) > 47 And Asc(Mid(myStr, pos, 1)) < 58, Mid(myStr, pos, 1), "")
    vct(1) = vct(1) & IIf(Asc(Mid(myStr, 1 + pos, 1)) > 47 And Asc(Mid(myStr, 1 + pos, 1)) < 58, Mid(myStr, 1 + pos, 1), "")
 
    'récupérer le texte
    pos1 = pos + 3
    pos2 = InStr(1, myStr, "FH") - 1
    vct(2) = Mid(myStr, pos1, pos2 - pos1)
 
    'récupérer le 2 de FH
    vct(3) = Mid(myStr, pos2, 1)
 
    'récupérer le 1 de FC
    vct(4) = Mid(myStr, InStr(1, myStr, "FC") - 1, 1)
 
    'récupérer le 4 de LDG
    vct(5) = Mid(myStr, InStr(1, myStr, "LDG") - 1, 1)
 
    'récupérer le 14
    pos = InStrRev(myStr, "H") - 2
    vct(6) = IIf(Asc(Mid(myStr, pos, 1)) > 47 And Asc(Mid(myStr, pos, 1)) < 58, Mid(myStr, pos, 1), "")
    vct(6) = vct(6) & IIf(Asc(Mid(myStr, pos + 1, 1)) > 47 And Asc(Mid(myStr, pos + 1, 1)) < 58, Mid(myStr, pos + 1, 1), "")
 
    'récupérer le 00
    pos = InStrRev(myStr, "H") + 1
    vct(7) = IIf(Asc(Mid(myStr, pos, 1)) > 47 And Asc(Mid(myStr, pos, 1)) < 58, Mid(myStr, pos, 1), "")
    vct(7) = vct(7) & IIf(Asc(Mid(myStr, pos + 1, 1)) > 47 And Asc(Mid(myStr, pos + 1, 1)) < 58, Mid(myStr, pos + 1, 1), "")
 
    Debug.Print , vct(0), vct(1), vct(2), vct(3), vct(4), vct(5), vct(6), , vct(7)
    'Il ne vous reste plus qu'à injecter les valeurs ci-dessus dans les cellules liées aux textboxes de votre formulaire pour les afficher
    'dans votre formulaire où vous pouvez les éditer.
 
End Sub

31/08/2022, 19h18
Tony4152

Bon diou de bon diou !

À la dixième ligne je dois déjà prendre un verre pour m’en remettre. 🫣
Je vais tester tout cela demain et je vous tiens au courant.
Les explications sous forme de ‘REM vont m’être utile.
Un grand merci, je vous réponds demain soir sans faute.

Merci pour ce soutien Belga16 👍🏻🍻
01/09/2022, 18h25
Tony4152

4 pièce(s) jointe(s)

Bonjour Belga16,

Je reviens à la charge pour vous confirmer votre macro, en effet cela fonctionne mais aujourd'hui on est venu me mettre de nouvelles données dans les pattes.
des cases ont été rajoutées et au maximum, voilà ce qu'elles peuvent contenir :

Pièce jointe 624750

ce qui donne

Pièce jointe 624751

tout comme je peux avoir ceci :

Pièce jointe 624752

ce qui donne

Pièce jointe 624753

En gros, lorsque toutes les lignes sont occupées j'ai dans ma case :

- Heures et minutes de décollage (ou juste la flèche, le H et le Z comme dans le deuxième cas)
- Numéro de mission entre parenthèse (si pas de numéro seule les parenthèses restent comme sur le deuxième cas)
- Type de mission (un numéro, un tiret et un nom comme Acrobatie, transport passagers, etc) ou vide
- La destination (en général un nom de ville) ou vide
- Les remarques éventuelles comme dans le 1er cas entre parenthèses (Pas de harnais) ou si pas de remarque, ligne vide
- le nombre de FH et de FC (ou vide, dans ce cas ne reste que FH FC comme dans le deuxième cas)
- le nombre de LDG (ou vide, dans ce cas pas de LDG marqué, la ligne est vide)
- Heures et minutes de posé (ou juste la flèche, le H et le Z comme dans le deuxième cas)

Je vous avoue avoir encore du mal à comprendre votre macro qui fonctionne pour le cas précis que j'avais évoqué,
mais en même temps je ne m'attendais pas à avoir ce genre de demande aujourd'hui.
J'ai passé ma journée à tenter d'adapter votre macro aux nouvelles demandes mais à part un mal de tête, je n'ai rien obtenu.

Je n'en suis qu'aux balbutiements mais je vais progresser tout doucement.
En espérant vous lire prochainement, je vous souhaite une excellente soirée.
01/09/2022, 19h17
Valtrase

Bonjour le fil,
Un petit fichier anonymisé serait le bienvenue,
01/09/2022, 21h20
Tony4152

Je vais voir ça.
Je le prépare pour ce week-end 👍🏻

Pas tellement de changements pour le dernier cas :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
Sub extraction()    'Tony4152_20220830
    Dim myStr As String
    Dim vct() As String
    Dim pos, pos1, pos2 As Long
 
    'Vous devez stocker le contenu de votre cellule dans la variable "myStr"
    'Exemple : myStr = ThisWorkbook.Sheets("Feul1").Range("A1")
    'Ici, j'ai mis le contenu de votre exemple dans la variable "myStr"
 
    'myStr = "12H00Z1-VOLTIGE2FH1FC4LDG14H00Z"
    myStr = "08H00Z(123)2-ACROBATIE BORDEAUX (PAS DE HARNAIX)1FH1FC7LDG14H00Z"
    'Récupérer le 12, le 00, la phrase 1-VOLTIGE, le 2 de FH, le 1 de FC, le 4 de LDG, le 14 et le 00
 
    ReDim vct(7)
    'récupérer élément 1
    vct(0) = IIf(Asc(Mid(myStr, 1, 1)) > 47 And Asc(Mid(myStr, 1, 1)) < 58, Left(myStr, 1), "")
    vct(0) = vct(0) & IIf(Asc(Mid(myStr, 2, 1)) > 47 And Asc(Mid(myStr, 2, 1)) < 58, Mid(myStr, 2, 1), "")
    vct(0) = vct(0) & IIf(Asc(Mid(myStr, 3, 1)) > 47 And Asc(Mid(myStr, 3, 1)) < 58, Mid(myStr, 3, 1), "") & " "
 
    'récupérer élément 2
    pos = InStr(1, myStr, "H") + 1
    vct(1) = IIf(Asc(Mid(myStr, pos, 1)) > 47 And Asc(Mid(myStr, pos, 1)) < 58, Mid(myStr, pos, 1), "")
    vct(1) = vct(1) & IIf(Asc(Mid(myStr, 1 + pos, 1)) > 47 And Asc(Mid(myStr, 1 + pos, 1)) < 58, Mid(myStr, 1 + pos, 1), "") & " "
 
    'récupérer le texte & " "
    pos1 = pos + 3
    pos2 = InStr(1, myStr, "FH") - 1
    vct(2) = Mid(myStr, pos1, pos2 - pos1) & " "
 
    'récupérer l'élément de FH
    vct(3) = Mid(myStr, pos2, 1) & " "
 
    'récupérer l'élément de FC & " "
    vct(4) = Mid(myStr, InStr(1, myStr, "FC") - 1, 1) & " "
 
    'récupérer l'élément de LDG
    vct(5) = Mid(myStr, InStr(1, myStr, "LDG") - 1, 1) & " "
 
    'récupérer l'avant dernier
    pos = InStrRev(myStr, "H") - 2
    vct(6) = IIf(Asc(Mid(myStr, pos, 1)) > 47 And Asc(Mid(myStr, pos, 1)) < 58, Mid(myStr, pos, 1), "")
    vct(6) = vct(6) & IIf(Asc(Mid(myStr, pos + 1, 1)) > 47 And Asc(Mid(myStr, pos + 1, 1)) < 58, Mid(myStr, pos + 1, 1), "") & " "
 
    'récupérer le dernier
    pos = InStrRev(myStr, "H") + 1
    vct(7) = IIf(Asc(Mid(myStr, pos, 1)) > 47 And Asc(Mid(myStr, pos, 1)) < 58, Mid(myStr, pos, 1), "")
    vct(7) = vct(7) & IIf(Asc(Mid(myStr, pos + 1, 1)) > 47 And Asc(Mid(myStr, pos + 1, 1)) < 58, Mid(myStr, pos + 1, 1), "") & " "
 
    Debug.Print , vct(0), vct(1), vct(2), vct(3), vct(4), vct(5), vct(6), , vct(7)
    'Il ne vous reste plus qu'à injecter les valeurs ci-dessus dans les cellules liées aux textboxes de votre formulaire pour les afficher
    'dans votre formulaire où vous pouvez les éditer.
 
End Sub

02/09/2022, 09h54
Belga16

Citation:

une fois toutes les données remplies, le bouton Création se dégrise et si je peux modifier les données via ce même Userform pour les réinscrire dans cette même cellule.

Supposons que le bouton "Création" s'appelle "BtnCreation"
A l'ouverture de l'écran, vous mettrez l'évènement:

Code:

Me.BtnCreation.Enabled = False

Et après les calculs, vous réactivez via :

Code:

Me.BtnCreation.Enabled = True
02/09/2022, 19h05
Valtrase

Salut le fil.
Un autre méthode consisterait à utiliser les Expressions Régulières.
Donc par exemple pour récupérer l'heure de départ qui se trouve en début de chaine l'expression serait : "^(\d{2})H(\d{2})Z"
Pour récupérer l'heure d'arrivée qui se trouve en fin de chaine l'expression serait : "(\d{2})H(\d{2})Z$"
Les parenthèses permettent d'isoler les heures et minutes avec les sous-correspondances SubMathces .
Pour récupérer la ville un Patern basique serait : "\d-[a-zA-Z ]{1,}"
Etc...
Et pour finir un site pour tester les expressions régulières, il-y-a pas mal d'exemples, et aussi des explications sur la droite.

Bonne programmation.
03/09/2022, 08h24
Tony4152

Citation:

Envoyé par Belga16

Pas tellement de changements pour le dernier cas :

Bonjour Belga,

1h30, oui 1h30 pour comprendre et tenter d'améliorer ton code.
Euh ! J'entends par améliorer ton code, plutôt l'adapter à mes cellules.
Je découvre comme je le disais encore récemment et c'est épuisant que de tenter de comprendre un langage que l'on ne connait pas mais tellement gratifiant lorsqu'on arrive enfin à apporter notre pierre à l'édifice.
Ces instruction MID et InStr sont vraiment puissante lorsqu'on les utilise ensemble pour la recherche et l'extraction de données dans un texte.
Si je comprends bien, on peut récupérer tout ce que l'on veut si on se fixe des repères bien précis dans la cellule (Pour mon cas "FH", "FC", "LDG", "H", "Z", "(", ")", etc)

Dans l'exemple ci dessous

Citation:

Envoyé par Belga16

myStr = "08H00Z(123)2-ACROBATIE BORDEAUX (PAS DE HARNAIX)1FH1FC7LDG14H00Z"

J'arrive désormais à récupérer aussi la valeur entre parenthèses "(123)" mais j'ai aussi apporter la possibilité d'extraire plus d'un chiffre devant les paramètres FH, FC et LDG.

Par rapport à cela, comment puis-je également récupérer une virgule si mon chiffre possède des décimales ?

Maintenant récupérer deux phrases distinctes qui se suivent voir trois genre "1-Acrobatie" et "Bordeaux" et "(Pas de harnais), ca parait plus complexe.
Parce que cela peut devenir "Transfert", "Reims" et "(Sans passager)" par exemple et bien d'autres encore.

Mais j'avance, petit à petit, j'avance !

Merci pour ton partage et ton soutien en tout cas.
03/09/2022, 21h10
Belga16

Vos paramètres sont toujours : H, Z, FH, FC, LDG
Si vous pouvez déterminer leurs positions respectives, c'est gagné
Pour la virgule, il ne faut pas s'en faire car il s'git ici d'un horaire. Autant extraire tous les nombres pour lire qq chose comme 0130 qui signifie "1H30minutes"
Pour rappel le caractère ASCII des nombres vont de 48 à 57 (48 = Asc(0))
Si vous voulez quand même extraire la virgule, son caractère ASCII est 44; à l'inverse Chr(44)="," et Chr(48) = 0.
Pour la parenthèse ouverte: Asc(")")=41
Vous avez là un bref aperçu sur 2 fonctions très utiles dans ce cas: Asc et Chr

Pour connaitre les autres caractères ASCII, tapez dans la fenêtre de débogage ?asc("x") ?asc(n), "x" étant une lettre et n un nombre; sinon via internet.

PS: ne pas sous-estimer l'idée de Valtrase que j'avais déjà essayée dans d'autres cas, avec succès !
04/09/2022, 17h53
Tony4152

Super interessant ces deux autres fonctions en effet, je continue mes essais et je vous enverrez un premier jet de mon code dés que...
Quant à l'aide de Valtrase que je n'oublie pas et que je remercie, je verrai ça après. Je conserve cette idée dans un coin de ma tête.
Encore merci à tous.
A bientôt