Erreur d'execution '13' / Incompatibilité de type, Sur condition IF/THEN

Bonjour,

Nouveau sur le forum, je me trouve face au problème suivant :

J'exécute depuis une feuille Excel "Accueil", une macro qui va sélectionner une autre feuille et y apporter des modifications. La feuille de destination est choisie à partir d'une liste (validation des données) présente dans une cellule de la feuille d'origine (Accueil)

Ma Macro fonctionne sur les 2 premières feuilles de destination. J'ai par contre le message d'erreur en objet qui apparaît sur les autres feuilles (les autres feuilles ont été copies à partir de la 1ère Feuille, pour laquelle ça fonctionne). Les références de cellules sont bien identiques, les cellules de destination (qui sont modifiées par la Macro) ont le même format.

Voici le Code

Sub ValidAction()

flle = Range("H4").Value

‘attribue à la variable flle la valeur de la cellule H4 issue d’une liste (validation des données)

Sheets(flle).Select

‘sélectionne la feuille correspondante (feuille de destination)

ActiveSheet.Unprotect

‘ôte la protection de la feuille sélectionnée

nom = Range("AE2").Value

telephone = Range("AE3").Value

adrmail = Range("AE4").Value

agent = Range("AD2").Value

Dim bcle2 As Integer

bcle2 = 4

For bcle2 = 4 To 5000

‘Teste sur une plage de cellule la présence ou l’absence d’informations

‘Si absence d’infos (""), donne aux cellules suivantes les valeurs des variables définies plus haut

If Cells([bcle2], [2]) <> "" Then ‘c’est à cet endroit que le stop apparaît

Else

Cells([bcle2], [2]) = nom

Cells([bcle2], [3]) = telephone

Cells([bcle2], [4]) = adrmail

Cells([bcle2], [6]) = agent

Cells([bcle2], [5]) = Date

bcle2 = 10000

ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _

False, AllowFormattingCells:=True, AllowFormattingColumns:=True, _

AllowFormattingRows:=True, AllowInsertingColumns:=True, AllowInsertingRows _

:=True, AllowInsertingHyperlinks:=True, AllowDeletingColumns:=True, _

AllowDeletingRows:=True, AllowUsingPivotTables:=True

End If

Next

End Sub

Merci d'avance.

Bonjour,

Vire moi, d'urgence, tous ces crochets dans tes références de cellules :

If Cells([bcle2], [2]) <> "" Then

devient :

If Cells(bcle2, 2) <> "" Then

Je n'ai pas regardé le reste...

Bonjour Stephd13 et

Une petite présentation ICI serait la bienvenue

Si vous ne l'avez pas encore fait, je vous invite à lire la charte du forum [A LIRE AVANT DE POSTER]
qui vous aidera dans vos demandes et réponses sur ce forum et notamment à savoir que le code se met entre balises grâce au bouton </>

@+

Merci Bruno M45, j'avais bien lu la Charte, mais il ne me semble pas qu'il y ait ce que vous mentionnez (j'ai dû mal lire).
Je viens de faire une rapide présentation, et bien noté pour les balises </>

Et Merci Franck! ça fonctionne maintenant sans les crochets. (Bizarre tout de même que ça marche avec les crochets sur d'autres feuilles).

Re,

Stephd13 a écrit :

Merci Bruno M45, j'avais bien lu la Charte, mais il ne me semble pas qu'il y ait ce que vous mentionnez (j'ai dû mal lire).
Je viens de faire une rapide présentation, et bien noté pour les balises </>

Effectivement, cela l'a été avant, puis enlevé (un oubli), Sébastien (l'administrateur) vient de remettre la mention

Ce qui importe, c'est que la solution est été donnée