N
Nanard
Guest
Bonjour aux exceliens (e), et à tout le forum,
Depuis plusieurs jours , je travaille sur une petite application, dans laquelle j'ai intégré des codes VBA, lorque je protège mon appli malgré après avoir déverouillée les cellules concernées par le code, j'ai une erreur '1004' lorque je protège ma feuil et dans le cas contraire elle fonctionne à merveille
Voici mon code pour + de compré"hension et peut être la solution !!:
Sub Modifier_C5()
'
' Modifier_C_Macro
' Macro enregistrée le 10/02/2004 par BP
'
Dim Nom_Boîte As Variant
Dim Valeur_C5 As Variant
Valeur_C5 = InputBox("Entrez le nom de la Personne ")
Nom_Boîte = Valeur_C5
Range("C5").Select
ActiveCell.Value = Valeur_C5 (Bug 1004 en protégeant feuil)
Selection.Characters.Text = ""
Selection.Characters.Text = CStr(Nom_Boîte)
Range("C5").Select
For Each c In Range("C21")
c.Select
If c.Value = "Société" Then
Selection.Interior.ColorIndex = 36 (Idem pour changem couleur)
ElseIf c.Value = "Nom" Then
Selection.Interior.ColorIndex = 0
End If
Next
End Sub
Je peine sous VBA, si une ame charitable pouvait venir à mon secour
Merci d'avance
Nanard
Depuis plusieurs jours , je travaille sur une petite application, dans laquelle j'ai intégré des codes VBA, lorque je protège mon appli malgré après avoir déverouillée les cellules concernées par le code, j'ai une erreur '1004' lorque je protège ma feuil et dans le cas contraire elle fonctionne à merveille
Voici mon code pour + de compré"hension et peut être la solution !!:
Sub Modifier_C5()
'
' Modifier_C_Macro
' Macro enregistrée le 10/02/2004 par BP
'
Dim Nom_Boîte As Variant
Dim Valeur_C5 As Variant
Valeur_C5 = InputBox("Entrez le nom de la Personne ")
Nom_Boîte = Valeur_C5
Range("C5").Select
ActiveCell.Value = Valeur_C5 (Bug 1004 en protégeant feuil)
Selection.Characters.Text = ""
Selection.Characters.Text = CStr(Nom_Boîte)
Range("C5").Select
For Each c In Range("C21")
c.Select
If c.Value = "Société" Then
Selection.Interior.ColorIndex = 36 (Idem pour changem couleur)
ElseIf c.Value = "Nom" Then
Selection.Interior.ColorIndex = 0
End If
Next
End Sub
Je peine sous VBA, si une ame charitable pouvait venir à mon secour
Merci d'avance
Nanard