Insérer automatiquement une valeur dépandante

[ascal44]

Bonjour, lors de la saisie d'un numéro de service je voudrais que s'inscrive le N° de "case" dans la cellule d'à coté.

Merci pour votre aide

 

[Dugenou]

Re : Insérer automatiquement une valeur dépandante

Bonjour le forum, bonjour ascal

formule poru la cellule G9, à recopier vers le bas :
=RECHERCHEV(CNUM(SUBSTITUE(F9;" "; );Remisage!$A$6:$B$109;2;FAUX)

le cnum(substitue()) est rendu nécessaire car la saisie dans la colonne F est un texte alors que dans la feuille remisage, ce sont des nombres.

Si tu peux modifier la saisie pour entrer aussi des nombres, la formule devient alors plus simple :
=RECHERCHEV(F9;Remisage!$A$6:$B$109;2;FAUX)

Cordialement

 

[ascal44]

Re : Insérer automatiquement une valeur dépandante

Merci, mais je ne comprends pas pourquoi la formule reste affichée dans la cellule et non son résultat ?!!! Serait -il possible d'intégrer la formule dans le code VBA du userform de saisie ?

 

[Dugenou]

Re : Insérer automatiquement une valeur dépandante

Re,

si la formule reste affichée c'est certainement parce que la cellule est déclarée en format texte. Remet le format de la cellule à Standard puis re valide la saisie (au besoin enlève le guillemet simple qui a pu se mettre devant) et ça roule !

cordialement

PS tu peux certainement adapter en vba avec vlookup, mais je ne "parle" pas le vba

 

[Cousinhub]

Re : Insérer automatiquement une valeur dépandante

Bonsoir,
dans ton code USF, rajoute cette ligne, à la suite de :
.Range("F" & DerLigne) =.......................


.Range("G" & DerLigne) = Format(Application.Index(Sheets("Remisage").Range("B6:B109"), _
Application.Match(CDbl(TextBox9.Value), Sheets("Remisage").Range("A6:A109"), 0)), "00 00")

Normalement sur une seule ligne...
S'il y a une ou des lignes rouges, efface les espaces....
Bonne soirée

 

[ascal44]

Re : Insérer automatiquement une valeur dépandante

Super, ça fonctionne impec. MERCI

 

[ascal44]

Re : Insérer automatiquement une valeur dépandante

Afin d'affiner mon programme, serait-il possible de reproduire le format ( souligné, couleur , gras ...) des valeurs dela colonne B qui peuvent être différentes pour mieux les repérer ???
Merci

 

[ascal44]

Reproduire le format des données source lors de la copie

Bonsoir à tous ;
Afin d'affiner mon programme, serait-il possible de reproduire le format ( souligné, couleur , gras ...) des valeurs dela colonne B qui peuvent être différentes pour mieux les repérer ???
Merci

 

[Cousinhub]

Re : Insérer automatiquement une valeur dépandante

Bonsoir ascal, le forum

à la place de la ligne :

.Range("G" & DerLigne) = Format(Application.Index(Sheets("Remisage").Range( "B6:B109"), _
Application.Match(CDbl(TextBox9.Value), Sheets("Remisage").Range("A6:A109"), 0)), "00 00")

tu insères ces lignes :

x = Application.Index(Sheets("Remisage").Range("B6:B109"), _
Application.Match(CDbl(TextBox9.Value), Sheets("Remisage").Range("A6:A109"), 0)).Address
Sheets("Remisage").Range(x).Copy .Range("G" & DerLigne)
Application.CutCopyMode = False

N'oublie pas de déclarer x :
Dim x (tu es en Option Explicit)

 

[ascal44]

Re : Insérer automatiquement une valeur dépandante

Bonsoir BhBh;
Etant un bricoleur débutant des codes VBA, je n'arrive pas à intégrer ces lignes de code. Pourriez vous les insérer dans le fichier ZIP afin que je voie comment ça se passe.
Encore merci

 

[Cousinhub]

Re : Insérer automatiquement une valeur dépandante

Bonsoir, le fichier mis à jour :

 

[ascal44]

Re : Insérer automatiquement une valeur dépandante

Merci, pour votre travail.
Mais serait-il possible de recopier uniquement le format de la police sans celui de la cellule ?

 

[ascal44]

Re : Insérer automatiquement une valeur dépandante

Bonjour, j'ai modifié la feuille "remisage" et maintenant je ne vois pas comment faire pour retrouver mes N° de case.

Je joint le fichier modifié