Bonsoir le forum.
j'ai un petit soucis avec la fonction target.
La macro si-dessous me permet deux choses :
La première partie vérifie le contenu des cellules de B30 à B70 et si le contenu de l'une d'entre-elles vient à être supprimé alors cela supprime, sur la même ligne, le contenu des cellules des colonnes 3 et 4.
La deuxième partie de cette macro affiche dans 5 cellules spécifiques (tous le temps les mêmes), le contenu de 5 cellules différentes selon la ligne sur laquelle se situe la cellule active du fichier excel.
Cette macro fonctionne très bien, sauf si je protège la feuille où à ce moment là j'ai une erreur de type 1004 à partir de la ligne 2 de la deuxième partie (j'y ai collé un smileys "mad'").
J'ai cherché une explication sur le net mais je n'en trouve pas alors, je me tourne de nouveau vers vous.
Si quelqu'un à une idée ?
par avance merci
Cordialement
Dominique
Voici la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' suppression des ledgers si nominal supprimé
ligned = 30
lignef = 70
For ligned = 30 To lignef
If IsEmpty(Cells(ligned, 2)) Then Range(Cells(ligned, 2), Cells(ligned, 4)).ClearContents
Next ligned
'inscription des ledgers et des libellé dans les champs
Nominal = 21
If Target.Row > 29 Then Cells(27, 2) = Target.Offset(, Nominal - Target.Column)
ledger1 = 24
If Target.Row > 29 Then Cells(26, 3) = Target.Offset(, ledger1 - Target.Column)
Nomledger1 = 26
If Target.Row > 29 Then Cells(27, 3) = Target.Offset(, Nomledger1 - Target.Column)
Ledger2 = 25
If Target.Row > 29 Then Cells(26, 4) = Target.Offset(, Ledger2 - Target.Column)
Nomledger2 = 27
If Target.Row > 29 Then Cells(27, 4) = Target.Offset(, Nomledger2 - Target.Column)
End Sub
j'ai un petit soucis avec la fonction target.
La macro si-dessous me permet deux choses :
La première partie vérifie le contenu des cellules de B30 à B70 et si le contenu de l'une d'entre-elles vient à être supprimé alors cela supprime, sur la même ligne, le contenu des cellules des colonnes 3 et 4.
La deuxième partie de cette macro affiche dans 5 cellules spécifiques (tous le temps les mêmes), le contenu de 5 cellules différentes selon la ligne sur laquelle se situe la cellule active du fichier excel.
Cette macro fonctionne très bien, sauf si je protège la feuille où à ce moment là j'ai une erreur de type 1004 à partir de la ligne 2 de la deuxième partie (j'y ai collé un smileys "mad'").
J'ai cherché une explication sur le net mais je n'en trouve pas alors, je me tourne de nouveau vers vous.
Si quelqu'un à une idée ?
par avance merci
Cordialement
Dominique
Voici la macro
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' suppression des ledgers si nominal supprimé
ligned = 30
lignef = 70
For ligned = 30 To lignef
If IsEmpty(Cells(ligned, 2)) Then Range(Cells(ligned, 2), Cells(ligned, 4)).ClearContents
Next ligned
'inscription des ledgers et des libellé dans les champs
Nominal = 21
If Target.Row > 29 Then Cells(27, 2) = Target.Offset(, Nominal - Target.Column)
ledger1 = 24
If Target.Row > 29 Then Cells(26, 3) = Target.Offset(, ledger1 - Target.Column)
Nomledger1 = 26
If Target.Row > 29 Then Cells(27, 3) = Target.Offset(, Nomledger1 - Target.Column)
Ledger2 = 25
If Target.Row > 29 Then Cells(26, 4) = Target.Offset(, Ledger2 - Target.Column)
Nomledger2 = 27
If Target.Row > 29 Then Cells(27, 4) = Target.Offset(, Nomledger2 - Target.Column)
End Sub