Discussion :

[kabbaj.med]

Bonjour,
J'ai ce fichier excel qui traite les arrêts des machines par semaine.
j'ai plusieurs feuilles excel
je veux que lorsque j'ajoute une machine, toute la ligne de la nouvelle machine doit apparaitre dans toutes les feuilles du tableau.
Sachant que j'ai deux types de machines, si j'ajoute une machine stratégique,elle doit figurer dans le premier tableau, si une machine importante, elle doit figurer dans le 2eme.
j'ai fais quelques essai, et je trouve des erreurs dans mon code,

[riaolle]

Bonjour,
Conformément aux règles du forum, ne joins pas de fichier, mais explique ton problème, écris-nous le code qui pose problème et joins éventuellement des copies d'écrans de ton projet si nécessaire.
Dis-nous où tu bloques dans ton code, quels sont les messages d'erreurs que tu obtiens et où exactement.

[kabbaj.med]

ok,je vous remercie

Merci de me répondre

[riaolle]

As-tu bien lu mon message #2? Car là, je ne peux pas te répondre correctement

[kabbaj.med]

J'ai le tableau suivant pour chaque semaine:


j'ai deux types de machines : machines stratégiques et machines importantes,
Je veux a chaque fois que j'ai une nouvelle machine, je l'ajoute , et automatiquement elle s'étend sur toutes les semaines.

Dans la feuille accueil: j'ai créé deux boutons: Ajouter une machine stratégique ; Ajouter une machine importante;


quand je clique sur l'une deux , ce formulaire s'affiche:


Je saisis le nom de la machine, je saisis L'unité,
et j'ai programmé le bouton ajouter de la façon suivante

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
 
Private Sub Button_Add_Mach_Str_Click()
 
 
 Dim fin
    If Text_Mach_Str <> "" And TextUnite <> "" Then
        With Feuil1
            fin = .Range("B" & Rows.Count).End(xlUp).Row + 1
            .Cells(fin, 1) = Text_Mach_Str: .Cells(fin, 2) = TextUnite
            .Range(.Cells(10, 2), .Cells(fin, 7)).Sort Key1:=.Range("B10"), Order1:=xlAscending, Header:=xlNo
        End With
    Else
        MsgBox "Vous devez entrer le nom de la machine et l'unité", , "Manque de donnée"
    End If
    Unload Me
End Sub

mais ça marche pas, je veux programmer les deux boutons "ajouter" celui des machines stratégiques et celui des machines importantes.
Je vous remercie énormément.

[riaolle]

ça marche pas

Pourrais-tu être un peu plus précis? As-tu un message d'erreur? Si oui, lequel et où exactement? Est-ce que la macro tourne, mais ne fait pas ce que tu veux? Que fait-elle?
Par rapport à ton code, tu sais que la variable fin va prendre un entier comme valeur, déclare-là tout de suite comme Long :

Code :

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

Dim fin As Long

A quoi correspondent Text_Mach_Str et TextUnite ? Tu ne les déclares jamais avant.