Problème sur insertion et suppression de lignes

Bonjour,

Je rencontre 2 types de problèmes dans la programmation d'insertion et suppression de lignes.

Ci-joint le fichier avec les explications.

Merci d'avance pour votre aide.

Bonsoir

Le nom de ton fichier porte bien son nom

Comme fonctions tu as ActivLignOK1 et ActivLignOK2

Et les appels (regroupés) sont (en surligné les appels inconnus)

    If ActiveLignOK1= True Then    ' il faut ActivLignOK1 sans le e de Activ
.
    If ActivLignOK= True Then    ' Il faut ActivLignOK1
.
    If ActiveLignok2= True Then    ' il faut ActivLignOK2 sans le e de Activ
.
    If ActivLignOK= True Then    ' Il faut ActivLignOK2

Une suggestion

Dans la 1ère ligne du module inscrit

Option Explicit

ensuite menu Débogage ---> Compiler VBAProject

Tu verras au fur et à mesure toutes les erreurs que le compilateur trouve

Pour tes fonctions : Je ne sais pas si tu veux True si la couleur est bonne ou False (donnes un exemple)

' Fonction de reconnaissance de couleur zone Temps
Private Function ActivLignOK1() As Boolean
    If ActiveCell.Interior.ColorIndex = 15 Then   ' si la couleur a bien ce code
        ActivLignOK1 = True
    End If
End Function

' Fonction de reconnaissance de couleur zone Pièces
Private Function ActivLignOK2() As Boolean
    If ActiveCell.Interior.ColorIndex = 24 Then   ' Si la couleur a ce code
        ActivLignok2 = True
    End If
End Function

Ensuite pour ta 2ème question il faut être plus explicite

- Si moteur 1 (M1) coché alors copy ligne 7 (masquée théoriquement) , insérer en L28 puis a partir de info client copier en A28 / C28 / E28 / G28 / I28 / K28.

L28 c'est la ligne ? si oui pourquoi ne pas la marquer clairement Ligne 28

"Puis à partir de info client copier (quoi ?) en A28/ C28 / E28 / G28 / I28 / K28 de quelle page ?

Idem donnes un ou plusieurs exemples

Merci pour l'astuce du Option explicit, je n'arrivais pas à voir que les variables déclarées n'étaient pas les mêmes.

Pour le 2e problème j'ai essayé de mieux détailler, s'il y a encore des questions je suis la.

Merci

Bonjour

Gladius a écrit :

copier les données de la colonne S à W en A28 / C28 / E28 / G28 / I28 / K28

Copier 5 cellules dans 6, il y a comme un hic

A tester

La macro est déclenchée lors de la modification de K15

Ca marche nickel merci beaucoup.

Mais est-ce possible de faire un retour en arrière s'il a eu une erreur de choix ?

Bonjour

gladius a écrit :

Mais est-ce possible de faire un retour en arrière s'il a eu une erreur de choix ?

Tu supprimes les lignes