définir valeur d'une cellule selon une autre valeur donnée en InputBox

[Cedric apf]

Bonjour à tous,

Je voudrais qu'à partir des initiales de chacune des personnes amenées à travailler sur un tableau excel (elles sont entrées en d1 dans une Input Box), j'ai les noms complets des utilisateurs qui s'affichent.

J'ai pensé à code de ce genre là, pour que vous compreniez mon idée :

Then d1.value = CG
Range("B65536").End(xlUp).Offset(1, 0).Value = ("nom complet de CG")
Then d1.value = FL or FLH
Range("B65536").End(xlUp).Offset(1, 0).Value = ("nom complet de FL")
Then d1.value = JD
Range("B65536").End(xlUp).Offset(1, 0).Value = ("nom complet de JD")
Then d1.value = PM
Range("B65536").End(xlUp).Offset(1, 0).Value = ("nom complet de PM")
Then d1.value = CP
Range("B65536").End(xlUp).Offset(1, 0).Value = ("nom complet de CP")
Then d1.value = FS or STO or FSO
Range("B65536").End(xlUp).Offset(1, 0).Value = ("Nom complet de FS")
Then d1.value = TP
Range("B65536").End(xlUp).Offset(1, 0).Value = ("nom complet de TP")

Pour certaines personnes, je prévois qu'elles puissent utiliser plusieurs initiales, pour leur laisser le choix. Et comme vous pouvez le comprendre, je remplis la même cellule (la première ligne vide)

Merci d'avance à tous ceux qui m'aideront 😉

 

[skoobi]

Re : définir valeur d'une cellule selon une autre valeur donnée en InputBox

Bonjour Cedric,

En langage correct VBA, ça donne ceci:

With Range("B65536").End(xlUp).Offset(1, 0)
  Select Case Range("D1").Value
  Case "CG": .Value = "nom complet de CG"
  [SIZE=3][B]Case "FL", "FLH"[/B][/SIZE]: .Value = "nom complet de FL"
  Case "JD": .Value = "nom complet de JD"
'ect......
  End Select
End With

Remarque la façon de dire "FL ou alors FLH" en utilisant la structure Select Case..... Case....End Select (en gras).

Bonne soirée.

 

[Cedric apf]

Re : définir valeur d'une cellule selon une autre valeur donnée en InputBox

Merci skoobi de ton aide, mais ce n'est pas tout à fait ce que je souhaite, il ne s'agit pas de reprendre les initiales depuis la cellule D1, cette information d1 (Dim d1) provient d'une InputBox. Et c'est à partir de cette information d1 (qui sera les initiales) que je veux inscrire le nom complet de la personne dans la première ligne vide de la colonne B.

Mais en tout cas, déjà merci pour le vocabulaire basic que je ne maitrise pas vraiment...

du coup je tente ça mais sans succès

With Range("B65536").End(xlUp).Offset(1, 0)
Select Case d1.Value
Case "CG": .Value = "nom complet de CG"
Case "FL", "FLH": .Value = "nom complet de FL"
Case "JD": .Value = "nom complet de JD"
End Select
End With

 

[Cedric apf]

Re : définir valeur d'une cellule selon une autre valeur donnée en InputBox

Finalement j'ai réussi en contournant le problème 😉
Je place ma valeur d1 dans une cellule et ensuite j'utilise cette cellule. Mais si quelqu'un connait l'astuce pour traiter directement depuis la valeur d1, je suis preneur et surtout curieux de savoir 😉

Range("B3") = d1

With Range("A65536").End(xlUp).Offset(1, 0)
Select Case Range("B3").Value
Case "CG", "cg": .Value = "nom complet de CG"
etc.....
End Select
End With

 

[skoobi]

Re : définir valeur d'une cellule selon une autre valeur donnée en InputBox

Re bonjour,

dans ce cas:

Range("B3") = d1

With Range("A65536").End(xlUp).Offset(1, 0)
Select Case [B][COLOR=blue]d1[/COLOR][/B]
Case "CG", "cg": .Value = "nom complet de CG"
[COLOR=yellowgreen]etc.....[/COLOR]
End Select
End With

 

[Cedric apf]

Re : définir valeur d'une cellule selon une autre valeur donnée en InputBox

Ok, super, c'était le .value dans mon premier essai qui était en trop. Un grand merci à toi 😉