usf vers feuille- décalage et non incrémentation

skoobi

XLDnaute Barbatruc

• 3 Septembre 2008

• #2

Re : usf vers feuille- décalage et non incrémentation

Bonjour,
Ce décalage et cette non incrémentation se produit en faisant quoi?
Ce serait bien que tu donnes une démarche à suivre, on c'est pas trop ce qu'il faut faire là...(enfin moi en tout cas).

 

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 3 Septembre 2008

• #3

Re : usf vers feuille- décalage et non incrémentation

bonjour le Forum, Skoobi,

préalable : glissier l'USF de "PLAN FICHIER2 vers PLAN FICHIER
étape 0 : travailler donc dans PLAN FICHIER
étape 1: clic sur un code service dans la feuille " Etat" (fichier PLAN FICHIER)
-- cela ouvre mon USF et je le complète
étape 2: clic sur le bouton "envoyer cette demande
-- cela transfère le contenu de l'USF dans la feuille de données "MODIF"
jusque là cela ne cause pas de problème , sauf que:
a) ........ les données s'ajoutent correctement de B à ....
........ par contre dans la col A, les données sont décalées d'une ligne vers le haut
b) ............. l'incrémentation ne fonctionne pas, elle reste bloquée sur 001


j'espère avoir apporté un peu de lumière aux lecteurs et assidus du forum.

Merci par avance pour votre aide.
CAPRI_456

 

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 28 Décembre 2008

• #4

Re : usf vers feuille- décalage et non incrémentation

Bonsoir le Forum, Skoobi,
Bonnes fêtes de fin d'années à tous les XLdiens
Cela faisait un trimestre d'absence pour ce sujet....

actions...déjà réalisées : un double-clic sur un type de prestation dans la feuille "Etat "ouvre un USF qui permet d'introduire une série de modifications à l'attention du gestionnaire des services,
Ces demandes, ….sont enregistrées dans la feuille modif....
J'ai quelques soucis:
1-feuille "modif", l'incrémentation se fait avec un décalage d'une ligne vers le haut
2-l'incrémentation reste bloquée sur 0001
la structure du n° devrait être constituée par date+codeservice+agent+n°d'ordre automatique
ex: 12-12-08/R2/ANT/0001
3-idéalement, je ne devrais plus devoir passer par le bouton créer pour affecter ce numéro d'ordre automatique, mais un clic sur le bouton..... envoyer la demande devrait générer un nouveau n°

4-lors de l'ouverture de l'USF:
--- je voudrais en plus compléter automatiquement : les combo ou text Box suivants en relation avec le code service double-cliqué) ; soit:
--agent (CbX8) , --- date du service (TxB3), ----type (txB4),...
j'ai tenté avec Target.Value dans le code de la feuille "Etat",SANS SUCCES
Comment faire pour appeler le contenu des cellules et les affecter dans l'USF lors du double clic.

Merci pour votre soutien..

CAPRI_456

 

Pièces jointes

• PLAN-FICHIER3.zip

  70.5 KB · Affichages: 32

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 28 Décembre 2008

• #5

Re : usf vers feuille- décalage et non incrémentation

Bonsoir le Forum, Skoobi,

🙂 Voilà avec un peu de recherches sur le forum 😛 et un fil de 2004 de ""Thierry's MAcros ""j'ai solutionné les points 1-2 et 3 de ma demande.....
Hip Hip Hourrah ......

Me reste donc le point suivant à solutionner

4-lors de l'ouverture de l'USF:
--- je voudrais en plus compléter automatiquement : les combo ou text Box suivants en relation avec le code service double-cliqué) ; soit:

--agent (CbX8) , --- date du service (TxB3), ----type (txB4),...

j'ai tenté avec Target.Value dans le code de la feuille "Etat",SANS SUCCES
🙄🙄
Comment faire pour appeler le contenu des cellules et les affecter dans l'USF lors du double clic.
les données sont en haut , à gauche de la cellule ciblée par Target
Faut-il utiliser "Offset" ??

Merci

 

Pièces jointes

• PLAN-FICHIER33.zip

  77 KB · Affichages: 31

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 28 Décembre 2008

• #6

Re : usf vers feuille- décalage et non incrémentation

En plus clair,

dans l'USF , je voudrais que les données en relation avec R3, soient aussi affichées dans les contrôles à l'ouverture :
-- soit agent (ici KRE) en H9 .....donc donnée en haut
-- soit type pause (ici 3) en J10.....donc donnée en haut
-- soit date prestation (ici 01/08/07) en D13 .... donc donnée à gauche

Naturellement ce scénario doit s'adapter à chaque fois qu'une nouvelle cellule est double-cliquée..

Merci
CAPRI_456

 

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 30 Décembre 2008

• #7

Re : usf vers feuille- décalage et non incrémentation

Bonsoir le Forum, Skoobi,

je viens de tester le code suivant dans la feuille "Etat"

If Not Application.Intersect(Range("H13😀W50"), Target) Is Nothing Then
Cancel = True
UserForm1.TextBox8.Value = Date
UserForm1.TextBox5.Value = Target.Value
UserForm1.ComboBox8.Value = ActiveCell.Offset(-7, 0)
cette dernière ligne me permet d'affecter le nom "KRE" dans la Combobox 8
mais si je clique sur une cellule à droite de la cellule active cela ne fonctionne plus ....

Offset ne fonctionne donc que si l'on reste dans l'alignement de la cellule active...
Or le résultat escompté est en cas de clic dans la colonne 1,2,3 ou J, c'est toujours la donnée en H9 qui devra apparaître soit ici "KRE" soit le nom de l'agent pour lequel j'ai activé la cellule par double clic.


Merci pour votre aide.
CAPRI_456

 

Pièces jointes

• PLAN-FICHIER333.zip

  82.6 KB · Affichages: 33

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 1 Janvier 2009

• #8

Re : usf vers feuille- décalage et non incrémentation

Bonsoir le Forum,
Que 2009 soit tout simplement formidable?

Je débute 2009 en séchant toujours sur un problème avec ActiveCell.Offset
Dans le code suivant puis-je remplacer une partie du code par l'adresse exacte de la cellule vers laquelle il faut renvoyer le contenu


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

If Not Application.Intersect(Range("H13😀W50"), Target) Is Nothing Then
Cancel = True
UserForm1.TextBox5.Value = Target.Value
UserForm1.TextBox8.Value = Date
UserForm1.TextBox4.Value = ActiveCell.Offset(-6, 0) ici -6 ce serait (H10,0)
UserForm1.TextBox3.Value = ActiveCell.Offset(0, -4)
UserForm1.ComboBox8.Value = ActiveCell.Offset(-7, 0) ici -7 ce serait (H9,0)

Mais, il faut toujours rester dans le groube de colonnes (quatre colonnes)

Peut-être Offset n'est pas la procédure idéale pour atteindre le résultat escompté

Bien à vous
- CAPRI_456

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 1 Janvier 2009

• #9

Re : usf vers feuille- décalage et non incrémentation

bonsoir Capri
meilleurs voeux pour 2009

UserForm1.TextBox3.Value = Cells(Target.Row, "D")
UserForm1.TextBox5.Value = Target.Value
UserForm1.TextBox4.Value = Cells(10, Target.Column)
If Cells(10, Target.Column) = 1 Then
col = 0
ElseIf Cells(10, Target.Column) = 2 Then
col = -1
ElseIf Cells(10, Target.Column) = 2 Then
col = -2
Else
col = -3
End If
UserForm1.ComboBox8.Value = Cells(9, Target.Column).Offset(0, col)

à bientôt

 

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 2 Janvier 2009

• #10

Re : usf vers feuille- décalage et non incrémentation

Bonsoir et meilleurs voeux pour cette nouvelle année,

Pendant que je cherchais un moyen pour le combobox8, Bebere a répondu
de manière assez simple et efficace. 🙂

J'ai opté pour une boucle sur les colonnes comme ceci :

Code:

For k = 8 To 124 Step 4
      If Target.Column = k Then
         UserForm1.ComboBox8.Value = Cells(9, k)
         Exit For
      Else
         UserForm1.ComboBox8.Value = Cells(9, Cells(9, Target.Column).End(xlToLeft).Column)
      End If
    Next

A+

 

Vote positif 0 Vote négatif

B

Bebere

XLDnaute Barbatruc

• 2 Janvier 2009

• #11

Re : usf vers feuille- décalage et non incrémentation

bonjour

bqrt,meilleurs voeux pour 2009

étrennes pour Capri
remplace if.....end if

Select Case Cells(10, Target.Column)
Case 1
col = 0
Case 2
col = -1
Case 3
col = -2
Case Else
col = -3
End Select

à bientôt

 

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 3 Janvier 2009

• #12

Re : usf vers feuille- décalage et non incrémentation

Bonsoir le Forum, BQTR, Bebere,

Merci pour vos etrennes🙂, elles tombent à pic..
J'adopte la proposition de Bebere, elle joue parfaitement le rôle souhaité....
je vais tenter de comprendre.... le code , qui change de mon classique ActiveCel.Offset.....

Une question supplémentaire.....
1)je veux limiter l'affichage du usf1 (modifier une prestation déjà encodée)par double clic uniquement au cas où l'on trouve une donnée dans la plage.....(cel complétée)
2)si aucune donnée à l'intersection ligne/col (donc clic dans une cel vide: alors s'affiche un usf3 (programmer une prestation)

Bonsoir à tous,
Merci
CAPRI_456

 

Pièces jointes

• PLAN-FICHIER335.zip

  87.9 KB · Affichages: 31

Vote positif 0 Vote négatif

bqtr

XLDnaute Accro

• 3 Janvier 2009

• #13

Re : usf vers feuille- décalage et non incrémentation

Re,

Essaye ceci :

Si la cellule est vide c'est le USF3 qui s'ouvre sinon c'est l'USF1 qui s'affiche.

Code:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

   If Not Application.Intersect(Range("H13:DW50"), Target) Is Nothing Then
    Cancel = True
     If Target <> "" Then
         UserForm1.TextBox3.Value = Cells(Target.Row, "D")  'soit la colonne des dates
         UserForm1.TextBox5.Value = Target.Value
         UserForm1.TextBox4.Value = Cells(10, Target.Column)
         Select Case Cells(10, Target.Column)
           Case 1
             Col = 0
           Case 2
             Col = -1
           Case 3
             Col = -2
           Case Else
             Col = -3
         End Select
         UserForm1.ComboBox8.Value = Cells(9, Target.Column).Offset(0, Col)
         UserForm1.Show
     Else
         UserForm3.Show
     End If
   End If
   
End Sub

Pour le jour (1,2,3,j) et la date tu as toujours un des paramètres de la cellule que tu recherches, la colonne (D) pour la date et la ligne (10) pour le jour. Le deuxième paramètre est donné par la cellule sur laquelle tu double click : target.row pour la ligne ou target.column pour la colonne.

Pour le combobox8, comme tu as fusionné les 4 cellules, il faut trouver la cellule la plus à gauche de la plage fusionnée. C'est elle qui contient le nom.
Pour cela Bebere utilise la ligne 10 et détermine le décalage du Offset en fonction de la valeur de la cellule, d'où le test Select Case. Moi j'étais passé par une boucle

A+

Edit : Bonne année Bebere 🙂

 

Dernière édition: 3 Janvier 2009

Vote positif 0 Vote négatif

C

CAPRI_456

XLDnaute Occasionnel

• 3 Janvier 2009

• #14

Re : usf vers feuille- décalage et non incrémentation

Bonjour le Forum, BQTR,

BQTR, et hop.....voilà même les etrennes commentées.
Je te remercie pour les explications du code de Bebere....cela m'aide à mieux comprendre la démarche

Voilà ainsi je vais pouvoir poursuivre mon petit projet....et mettre au point le userform3...
là je reconnais que pour Target...
" " soit rien... ,
<> "" , soit quelque chose..... ,
j'aurais pu y penser....car pas trop compliqué

Néanmoins encore merci à vous deux.....

Bon WE... à tous

CAPRI_456

 

Vote positif 0 Vote négatif