Discussion :

[pheonix00fr]

Bonjour, j'ai un souci pour faire cohabiter deux macros, dans un tableau de la feuille "Liste", je saisie des données dans les colonnes C, D et E. Après je choisi en saisissant X des colonnes F,G,H,I et J, vers quelle feuille les données vont être envoyé. Ensuite dans la feuille "ALD" (qui correspond a la validation de la case F) je dois faire une validation en affichant "pris en compte" dans la colonne G, là une macro verrouille toutes les lignes dont la cellule G contient une valeur. A la première ligne validée pas de problème, mais si j'e saisie une deuxième ligne dans liste et que je veux l’envoyer ver la feuille "ALD", j'ai une erreur qui est du je pense au verrouillage des lignes dans ALD.
J'ai mis un fichier pour comprendre.
Merci de votre aide.

[clementmarcotte]

Bonjour,

Un bon endroit pour commencer:

Ici

[pheonix00fr]

Bonjour, désolé je ne me souvenais plus de cette consigne, j'ai pensé qu'avec le fichier joint se serait plus clair

[Igloobel]

Bonjour à tous,

Tout a bord tes listes de validation sur tes colonnes G,H,I,J empèche la possibilité de mettre un X dans la source j'ai :
\Temporary Internet Files\Low\Content.IE5\U1YHZ7UK\[Validation de lecture v2.xlsm]Parametres'!#REF!

Corrige déjà cela puis on verra pour la suite

A+

[pheonix00fr]

bonsoir, le fichier joint est une version allégé de l'original. Je n'ai mis que la feuille "Liste et "ALD qui correspond a la colonne F les autres ne sont pas prête a l"emploi. Les macro aussi se limite à cette feuille.

[pheonix00fr]

Bonjour, je pense que mon problème vient du verrouillage des cellules, La macro "Worksheet_Change" de la feuille "ALD" verrouille les lignes dont la cellule "G" contient une valeur, après si je rajoute une ligne dans "LISTE" et que je coche la cellule "G" la macro "Miseajourald" essais de copier ces cellules et les coller dans "ALD", mais cette macro ne copie pas que la nouvelle ligne mais recopie toutes les lignes cochées et recolle l'ensemble dans "ALD", du coup les lignes qui ont été verrouillés empêchent la bonne exécution de la macro "Miseajourald".
A la place de copier toutes le cellules dont la case "G" est coché sur la feuille "LISTE" et les coller dans "ALD", il faudrait n'ajouter que la nouvelle ligne coché, mais là je ne vois pas comment faire????

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
Sub Miseajourald()
'Copie des nouvelles lignes de le feuille "LISTE" et copie dans la premiere ligne libre
 
li = Sheets("LISTE").Range("C5").End(xlDown).Row
If Sheets("LISTE").Range("C7") = "" Then li = 7
ligne = 5
 
For i = 5 To li
    If UCase(Sheets("LISTE").Range("F" & i)) = "X" Then
    Cells(ligne, 3) = Sheets("LISTE").Cells(i, 3)
    Cells(ligne, 4) = Sheets("LISTE").Cells(i, 4)
    Cells(ligne, 5) = Sheets("LISTE").Cells(i, 5)
 
ligne = ligne + 1
End If
Next
 
End Sub

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
Private Sub Worksheet_Change(ByVal Target As Range)
'Insertion de la date
If Target.column = 7 Then If Not (IsEmpty(Target.Value)) Then Range("H" & Target.Row).Value = Now Else Range("H" & Target.Row).ClearContents
 
'la ligne dont la colonne G a été saisi est verouillé
'La ligne suivante est deverouillée
    Application.EnableEvents = True
    If Target.column <> 7 Then Exit Sub
    ActiveSheet.Unprotect
    Target.EntireRow.Select
    Selection.Locked = True
    Lig = Target.Row
    Cells(Lig + 1, 1).EntireRow.Select
    Selection.Locked = False
    ActiveSheet.Protect
 
End Sub