Discussion :

[ponchorabane]

Bonjour,

J'ai une problématique sur un outils que je souhaite mettre en place dans mon entreprise. Voici ce que je souhaite faire:

1) Pour chaque ligne du tableau 1 de la feuille "EXTRACTION GX" (ci-dessous), prendre le nom de tâche ( Tâche court en rouge) et le numéro de devis associé (Devis n° en bleu)



2) Les copier

3) Les coller dans le second tableau vierge de la feuille "ACCEPTANCE SHEET 2" (ci-dessous) selon leur emplacement prévus: Work specification pour le nom de tâche en rouge et Quote number pour Devis n° en bleu.



4) Incrémenter au fur et a mesure en créant une ligne dans le tableau vierge identique à la précédente et centrer le texte dans les cellules.

5) Si dans la colonne A ( N° Tâche) il y a un 1, un 2 ou un 3. Ne pas copier/coller et passer à la suite.

Par exemple, pour bien comprendre ce que je souhaite:

- Appuyer sur bouton Acceptance Sheet de la feuille 1

- Pour les trois premières lignes on obtient dans le tableau ceci:



J'avais commencé quelque chose mais ça bloque:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Sub AccS()
 
Sheets("ACCEPTANCE SHEET 2").Rows("11:" & Sheets("ACCEPTANCE SHEET 2").Range("B" & Rows.Count).Row).Clear
Sheets("ACCEPTANCE SHEET 2").Range("A10") = ""
Sheets("ACCEPTANCE SHEET 2").Range("B10") = ""
ligne = Sheets("ACCEPTANCE SHEET 2").Range("B" & Rows.Count).End(xlUp).Row
i = 2
Do While i < Sheets("EXTRACTION GX").Range("B" & Rows.Count).End(xlUp).Row + 1
If ligne > 19 Then
 
If Sheets("EXTRACTION GX").Cells(i, 1).Value = 1 Or Sheets("EXTRACTION GX").Cells(i, 1).Value = 2 Or Sheets("EXTRACTION GX").Cells(i, 1).Value = 3 Then
i = i + 1
 
End If
 
Sheets("ACCEPTANCE SHEET 2").Range("B" & ligne & ":B" & ligne).EntireRow.Copy Sheets("ACCEPTANCE SHEET 2").Range("B" & ligne + 1).EntireRow
Sheets("ACCEPTANCE SHEET 2").Range("B" & ligne + 1 & ":B" & ligne + 1).ClearContents
End If
Sheets("ACCEPTANCE SHEET 2").Range("B" & ligne + 1).Value = Sheets("EXTRACTION GX").Range("B" & i).Value
If Sheets("EXTRACTION GX").Range("D" & i) <> "" Then
Sheets("ACCEPTANCE SHEET 2").Range("A" & ligne + 1).Value = Sheets("EXTRACTION GX").Range("D" & i).Value
Else
Sheets("ACCEPTANCE SHEET 2").Range("A" & ligne + 1).Value = "-"
End If
 
Sheets("ACCEPTANCE SHEET").Activate
With Sheets("ACCEPTANCE SHEET 2").Range("A1:A10000")
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
 
With Sheets("ACCEPTANCE SHEET 2").Range("B16:B10000")
.HorizontalAlignment = xlHAlignCenter
.VerticalAlignment = xlVAlignCenter
End With
Sheets("EXTRACTION GX").Activate
 
End Sub

Vous trouverez également mon fichier avec le code VBA.

Merci par avance pour votre aide,

[Qwazerty]

Salut

Dans ton onglet Acceptance, dans les colonne avec une case à cocher et une date, quel est le but final? Ces données seront saisies à la main par écrit sur une impression papier?

• Si oui
  
  • Il vaudrait mieux placer le caractère "o" dans la ligne et lui appliquer le style de police Wingdings, ça te fera un carré et la cellule sera plus facilement répétable
  
  
• Si Non (saisi sur ordi directement dans le tableau
  
  • Que va provoquer le clique dans la case à cocher?
  • Quel est l'intérêt de tout mettre dans une cellule Date + Case
  
  

Je n'ai pas regardé le code pour l'instant, je pense qu'il y a déjà des choses (beaucoup, voir peut-être tout) qui peuvent se faire sans VBA.
Tu devrais regardé les tuto de Pierre Fauconnier sur les tableaux Structurés ainsi que ceux sur Power Query...

++
Qwaz

[Qwazerty]

Salut

Voila ce que ça pourrait donné, je suis parti du principe que la feuille était imprimée. J'espère que ta version d'Excel va disposée de Power Query.

Pour le carrè dans la case signature, Arial en contient un mais il est tout petit...
Je n'ai pas cherché beaucoup du coté de la police d'écriture mais il existe sans doute un police avec un caractère qui forme un carrè et où le reste des caractères est lisibles (il n'est pas possible de modifier la police pour une partie du texte issu de la base de donnée... où du moins je ne sais pas comment faire... mais je doute que ce soit possible )
J'ai trouvé un caractère qui doit faire partie de l'écriture "arabe" (l'orientation du texte se mettait automatiquement sur droite gauche) mais bon c'est un pis-aller qui ne ressemble pas bien à un carrè.

Dans le principe, tu ajoutes les lignes dans ton 1er tableau, lorsque tu passes à la feuille Acceptation une ligne de code provoque la mise à jour du tableau contenu dans la feuille Acceptation. Tout est fait dans Power Query (c'est top ce truc... J'étais passé complètement à coté jusqu'à maintenant).
Au boulot on n'a que MS Query... Par contre il y a une mise à jour automatique du tableau sur modification d'un paramètre mais je ne le retrouve pas dans Power Query... Si quelqu'un passe par là...

++
Qwaz