XL 2016 formulaire de saisie - RESOLU -

Lone-wolf

XLDnaute Barbatruc

• 7 Janvier 2017

• #2

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.

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Janvier 2017

• #3

Bonjour,

Regarde si cela te convient.

VB:

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 🙂

 

Pièces jointes

• test bibbip35.xlsm

  16.1 KB · Affichages: 30

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 7 Janvier 2017

• #4

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Janvier 2017

• #5

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

 

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 7 Janvier 2017

• #6

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

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Janvier 2017

• #7

Re,

bibbip35 à dit:

je sais faire l'userform

Cliquez pour agrandir...

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

Regarde si ceci te convient.

A+

 

Pièces jointes

• test bibbip35.xlsm

  20 KB · Affichages: 41

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 7 Janvier 2017

• #8

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Janvier 2017

• #9

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ù.

 

Pièces jointes

• test bibbip35.xlsm

  25.3 KB · Affichages: 28

Dernière édition: 7 Janvier 2017

Vote positif 0 Vote négatif

B

bibbip35

XLDnaute Occasionnel

• 7 Janvier 2017

• #10

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 !!!

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Janvier 2017

• #11

Re, bonjour Lonewolf 🙂,

Lone-wolf à dit:

Mince! Tu as été plus rapide. 😱😳

Cliquez pour agrandir...

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

Lone-wolf à dit:

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

Cliquez pour agrandir...

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

Voici qui devrait améliorer cela.

A+

 

Pièces jointes

• test bibbip35.xlsm

  20.3 KB · Affichages: 47

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Janvier 2017

• #12

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. 😀

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 7 Janvier 2017

• #13

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

Lone-wolf à dit:

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

Cliquez pour agrandir...

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

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 7 Janvier 2017

• #14

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

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

Cliquez pour agrandir...

Je parlait de la poste 😉😀

 

Vote positif 0 Vote négatif