TARGET PLUS

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
FFO
Le #5047801
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


IMER09
Le #5047761
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


Fredo P.
Le #5047481
"FFO"


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


Publicité
Poster une réponse
Anonyme