XL 2016 formulaire de saisie - RESOLU -

[bibbip35]

Bonjour à tous

Je souhaiterais créer un formulaire de modification pour la colonne F
dans le fichier exemple ci joint

Mon objectif est de faire afficher un userform de modification pour chaque ligne pou que l'opérateur modifie la valeur de la colonne F

userform1

On modifie la valeur du Package correspondant à F2
userform2

On modifie la valeur du Package correspondant à F3

etc.... Dans mon fichier exemple jusqu'à F5

Et cela jusqu'à temps qu'il n'y pas de ligne dans la feuille

En espérant avoir été clair

Merci à tous par avance

Bibbip

 

[Lone-wolf]

Bonjour Bibbip et bonne année

Ce n'est pas très claire. Dans la colonne F je vois des erreurs, ce qui me laisse supposer que la colonne contient des formules. Avant ce commencer, j'aimerais avoir un peu plus d'infos.

 

[Calvus]

Bonjour,

Regarde si cela te convient.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim valeur As String
If Intersect(Range("F2:F" & Range("F" & Rows.Count).End(3).Row), Target) Is Nothing Then Exit Sub
If Not Intersect(Range("F2:F" & Range("F" & Rows.Count).End(3).Row), Target) Is Nothing And Target.Count = 1 Then 'Exit Sub
valeur = InputBox("Veuillez entrer unz valeur")
If valeur <> "" Then Target = valeur
End If
End Sub

Bonne journée.

EDIT : Bonjour Lonewolf

 

[bibbip35]

Lone-wolf les cellules ne contienne pas de formules ( Mais en effet C'est une Copy d'une autre feuille ou des valeurs n'ont pas été trouvé = donc des erreurs de RECHERCHEV)

Calvus merci pour ton aide , mais ce que je souhaiterais c'est faire apparaître un userform
avec ITEM- SUITE DESCRIPTION - PACKAGE
Et que la macro génère un USERFORM pour la ligne 1
Puis l'opérateur corrige le package par une nouvelle valeur
Puis que la macro génère un USERFORM pour la ligne 2
Puis l'opérateur corrige le package par une nouvelle valeur
Puis que la macro génère un USERFORM pour la ligne 3
Puis l'opérateur corrige le package par une nouvelle valeur

Et cela jusqu'à temps qu'il n'y est plus de ligne à corriger

En espérant avoir été un peu plus clair

MERCI ENCORE

BibBip35

 

[Calvus]

Re, Tu ne sais pas faire de userform ? Je parle du dessin.

 

[bibbip35]

Calvus , je sais faire l'userform mais c'est comment le remplir pour chaque ligne
que je ne sais pas comment faire....

 

[Calvus]

Re,

je sais faire l'userform

Oui, ça m'aurait éviter de devoir le faire...

Regarde si ceci te convient.

A+

 

[bibbip35]

Calvus MERCI
C'est exactement ce que je cherchais a fais
Merci encore et Bonne journée

 

[Lone-wolf]

Bonjour Calvus

Mince! Tu as été plus rapide.

EDIT: @ bibbip > Bon amusement si tu souhaite modifier la 100ème ligne par exemple.

En PJ, au cas où.

 

[bibbip35]

Merci Calvus

J'aime beaucoup votre proposition même si celle de Calvus repond très bien a mes attentes

Calvus , Par contre la TextBox 6 ( Package ) ne se rafraichit pas quand on change de ligne

Et Sinon est-il possible de réactualiser la liste a partir de ceux qui n ont pas été modifier
C'est à dire que la listBox ne contient que les lignes dont le package = #N/A

J'en demande beaucoup ...

En tous cas Chapeau à vous 2 !!!

 

[Calvus]

Re, bonjour Lonewolf ,

Mince! Tu as été plus rapide.

Normal ! Ça se saurait si les gens étaient plus rapides en Suisse non ?

Bon amusement si tu souhaite modifier la 100ème ligne par exemple.

J'y avais pensé, mais j'ai appliqué le code à sa demande.

Voici qui devrait améliorer cela.

A+

 

[Lone-wolf]

Entre nous et mine de rien, d'après les stats, c'est le pays le plus stressé d'Europe. Et le comble, en France LA POSTE BOUGE, mais où j'habite, 40 ans et toujours au même endroit.

 

[Calvus]

La Suisse le pays le plus stressé d'Europe ???

en France LA POSTE BOUGE, mais où j'habite, 40 ans et toujours au même endroit.

J'avoue que je n'ai pas compris ta plaisanterie...

 

[Lone-wolf]

Re OUI. Ils en avaient parlé à la télé, il y à longtemps de celà.

J'avoue que je n'ai pas compris ta plaisanterie...

Je parlait de la poste