Besoin d'aide Macro Excel

**KLR88** · 18/12/2018, 15h19

J'ai créer un classeur type pour un suivi de chantier.
Je souhaiterais si possible trouver une macro qui me permettrait de suivre mes chantier en cours.
C'est dire que certaines lignes et données du tableau s'affiche dans l'onglet "PRE encours" lorsque la case Chantier Terminé = "x" case qui s'active deja elle même lorsque qu'un numéro de facture est indiqué
Es ce possible ?? es ce que quelqu'un peut prendre le temps de m'expliquer la procédure, je débute mais je me fascine de voir tout ce que l'on peut faire avec excel mais la les macro je beug, je comprend le principe de variable et de boucle mais je pense que je suis peut être encore un peu novice après je pensais à un système de copier coller en fesant une macro qui dans mon tableau 1 va préalable filtrer les chantir terminé et me reporter sur l'autre onglet ceux encours. Bref je suis perdue

Ci-joint le classeur que j'ai commencé si vous pouvez m'aider merciiiiii d'avance.

**MarcelG** · 18/12/2018, 16h34

Bonjour KLR, et bienvenu sur ce forum,

Tu dois gérer l'évènement Change de ta feuille de travail.
Pour ce faire, tu peux consulter cet espace
'https://docs.microsoft.com/fr-FR/office/vba/api/excel.worksheet.change

Mais as-tu des notions de VBA?
En d'autres termes, aurais-tu un code à proposer?

Au post #20 de cette discussion, je reporte quelques liens qui pourraient t'être utiles
'https://www.developpez.net/forums/f664/logiciels/microsoft-office/excel/macros-vba-excel/

**KLR88** · 18/12/2018, 17h32

Envoyé par MarcelG

Bonjour KLR, et bienvenu sur ce forum,

Tu dois gérer l'évènement Change de ta feuille de travail.
Pour ce faire, tu peux consulter cet espace
'https://docs.microsoft.com/fr-FR/office/vba/api/excel.worksheet.change

Mais as-tu des notions de VBA?
En d'autres termes, aurais-tu un code à proposer?

Au post #20 de cette discussion, je reporte quelques liens qui pourraient t'être utiles
'https://www.developpez.net/forums/f664/logiciels/microsoft-office/excel/macros-vba-excel/

Bonjour Marcel,

Oui un peu de connaissance en VBA j'ai déjà créer deux macros mais je sais pas pourquoi celle la je bloque
Pour l'instant mon code donne :

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
Sub MAJ()
 
FinLigne = ActiveSheet.UsedRange.Rows.Count + 1 ' delimite la fin de ma boucle
NumeroLigne = 2 'on delimite ou notre boucle va commencer
 
'Faire la boucle
 
While NumeroLigne < FinLigne 'début de la boucle
 If Range("Q" & NumeroLigne).Value = "x" Then
 Sheets("Plan de Retrait").Select
 Range("a" & NumeroLigne).Select
 Range(Selection, Selection.End(xlDown)).Select
 Selection.Copy
 Sheets("PRE encours").Select
 Range("a2").Select
 ActiveSheet.Paste
 
 NumeroLigne = NumeroLigne + 1 'permet de passer à la ligne suivante
 
Wend 'correspond à la fin de ma boucle
 
 
End Sub

Mais celui-ci ne fonctionne pas, et n'est pas encore au point je continue mes recherches mais bon des fois on bloque sur des trucs débiles

**Tylert** · 18/12/2018, 16h43

Bonjour,

une chose que je ne comprends pas: Pourquoi réécrire les mêmes données dans un onglet différent? un filtre sur la colonne Q ne suffirait il pas? (Voir sur la colonne P, puisque la valeur de la colonne Q dépend du remplissage de la colonne P)

**KLR88** · 18/12/2018, 17h28

Envoyé par Tylert

Bonjour,

une chose que je ne comprends pas: Pourquoi réécrire les mêmes données dans un onglet différent? un filtre sur la colonne Q ne suffirait il pas? (Voir sur la colonne P, puisque la valeur de la colonne Q dépend du remplissage de la colonne P)

Bonjour,

Je récris la même chose dans cette onglet car après il sera en liaison avec une autre feuille de plusieurs autres classeurs pour remplir plusieurs formulaire lié au chantier facturation et fin de chantier

**Tylert** · 18/12/2018, 17h42

Envoyé par KLR88

Bonjour,

Je récris la même chose dans cette onglet car après il sera en liaison avec une autre feuille de plusieurs autres classeurs pour remplir plusieurs formulaire lié au chantier facturation et fin de chantier

Je vais dire ok. la liaison pourrait probablement être faite avec la 1ere feuille mais ok

donc, MarcelG t'as donné une bonne piste: gestion de l'evenement change de ta feuille.

**KLR88** · 18/12/2018, 18h28

Ce sera justement ma première feuille et elle me servira de feuille source car mes autres tableaux sont avec des formulaires et je n'ai pas trouver la solution pour que rowsource accède à une autre feuille qu'une dans le classeur concerné par le formulaire du coup je la dupliquerais sur plusieurs dossier mais je veux pouvoir trier les sélection avant car je fais ça sur 6années du coup la recherche serait trop long et ça alourdirai beaucoup de mes dossiers ... Bref je me lance sur VBA depuis 1mois j'adore mais bon pas toujours facile 😀

**BENNASR** · 19/12/2018, 09h15

bonjour
avec l’événement worksheet change et lors de l'insertion d'un numéro de facture dans la colonne P les données vont être automatiquement copiées à la feuille des projets en cours . à tester , adapter et revenir nous données les résultats
si joint ton fichier avec le code
BONNE CONTINUATION

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim j As Long
If Application.Intersect(Target, Range("P7:P50000")) Is Nothing Then Exit Sub 
If Cells(Target.Row, 16) <> "" Then 
    j = Sheets("PRE encours").Cells(Rows.Count, 1).End(xlUp).Row + 1 
   Sheets("PRE encours").Range("A" & j) = Cells(Target.Row, 1)
   Sheets("PRE encours").Range("B" & j) = Cells(Target.Row, 5)
   Sheets("PRE encours").Range("C" & j) = Cells(Target.Row, 6)
   Sheets("PRE encours").Range("D" & j) = Cells(Target.Row, 7)
   Sheets("PRE encours").Range("E" & j) = Cells(Target.Row, 8)
   Sheets("PRE encours").Range("F" & j) = Cells(Target.Row, 9)
   Sheets("PRE encours").Range("G" & j) = Cells(Target.Row, 10)
   Sheets("PRE encours").Range("H" & j) = Cells(Target.Row, 17)
End If
End Sub

**Menhir** · 18/12/2018, 16h50

Envoyé par KLR88

C'est dire que certaines lignes et données du tableau s'affiche dans l'onglet "PRE encours" lorsque la case Chantier Terminé = "x" case qui s'active deja elle même lorsque qu'un numéro de facture est indiqué

Je n'ai pas ouvert ton fichier (et le manque de ponctuation dans ta phrase la rend difficilement compréhensible) mais ce que tu décris là devrait pouvoir se gérer avec une simple fonction SI().
En supposant que le numéro de facture est en A1, mettre dans la case Chantier Terminé :

Code :

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

=SI(A1="";"";"x")

**KLR88** · 18/12/2018, 17h26

Envoyé par Menhir

Je n'ai pas ouvert ton fichier (et le manque de ponctuation dans ta phrase la rend difficilement compréhensible) mais ce que tu décris là devrait pouvoir se gérer avec une simple fonction SI().
En supposant que le numéro de facture est en A1, mettre dans la case Chantier Terminé :

Code :

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