Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel TARGET PLUS

TARGET PLUS

3 réponses
Avatar
IMER09
Re bonjour

J'ai fait ce qui suit ou est l'erreur?
Desole je ne suis pas tres bon

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 Then
If Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
Range("Feuil1!G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row,
Target.Column - 25)

ActiveSheet.Protect

End If
End If
End Sub

Merci
--
IMER09
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
FFO
Salut à toi

à la place de la ligne :

Range("Feuil1!G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row,
Target.Column - 25)

mets :

Sheets("Feuil1").Range("G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row,
(Target.Column) - 25)

Celà devrait mieux faire


Re bonjour

J'ai fait ce qui suit ou est l'erreur?
Desole je ne suis pas tres bon

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 Then
If Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
Range("Feuil1!G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row,
Target.Column - 25)

ActiveSheet.Protect

End If
End If
End Sub

Merci
--
IMER09


Avatar
IMER09
Ca fait en effet mieux
Grd merci FFO
--
IMER09



Re bonjour

J'ai fait ce qui suit ou est l'erreur?
Desole je ne suis pas tres bon

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 56 And Target.Count = 1 Then
If Target.Value = "OK" Then
ActiveSheet.Unprotect
Range(Cells(Target.Row, 1), Cells(Target.Row, 56)).Locked = True
Range(Cells(Target.Row, 1), Cells(Target.Row,
56)).Interior.ColorIndex = 33
Range("Feuil1!G65536").End(xlUp).Offset(1, 0) = Cells(Target.Row,
Target.Column - 25)

ActiveSheet.Protect

End If
End If
End Sub

Merci
--
IMER09


Avatar
Fredo P.
"FFO" a écrit dans le message de news:



Sheets("Feuil1").Range("G65536").End(xlUp).Offset(1, 0) =
Cells(Target.Row,
(Target.Column) - 25)
ou

[Feuil1!G65536].End(3)(2)Îlls(Target.Row,Target.Column - 25)

Celà devrait faire kif kif