Fonction ne march plus

[tinet]

Bonjour le forum,

j'ai récupéré sur un autre de mes fichier, cette fonction qui permet de faire un collage automatique, malheureusement elle ne fonctionne pas sur mon nouveau fichier.
ai-je commis une erreur d'interprétation.

Sub Macro10()
'Mise à jour du fichier aprés intégration du fichier fournisseur

With Application
    .EnableEvents = False
    .ScreenUpdating = False
    .Calculation = xlCalculationManual
End With
'masque l'exécution pour être invisible

'
'
    Dim I As Long
Dim NBOnglet As Byte

For NBOnglet = 3 To 34

    Sheets(NBOnglet).Select
    ActiveSheet.Unprotect Password:=Feuil07.Range("A1").Value
    
   Columns("L:L").Select
    Selection.EntireColumn.Hidden = True
    
    For I = 11 To 880
    If Range("A" & I) <> "" Then
    Range("p" & I) = Range("c" & I)
    Else
    Exit For
    End If
    Next I
   
  
      
ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, Password:=Feuil07.Range("A1").Value
Next NBOnglet

merci de votre aide.

a+

 

[JCGL]

Re : Fonction ne march plus

Bonjour à tous,

Ce n'est pas une Fonction mais un code.
As-tu une feuille qui s'appelle 'NBOnglets' ?
As-tu une feuille 'Feuil07' ?
Sur quelle ligne as-tu l'erreur ?

A+ à tous

 

[tinet]

Re : Fonction ne march plus

Bonsoir Jcgl,

La formule se répète de la feuille trois à 34.
la feuille numéro sept ou non de la feuille (passe) et l'emplacement du mot de passe.
la formule fonctionne jusqu'au bout sans erreur.
mais aucune donnée est copier.

a+

 

[jmps]

Re : Fonction ne march plus

Bonsoir,

Le :
Else
Exit For
Me paraît un peu brutal.
Ça veut dire que dès que ta condition est fausse, tu sors de la boucle.
A la première cellule "A" & I vide tu laisses tout tomber.

Je virerais le Else tout simplement.

 

[tinet]

Re : Fonction ne march plus

Bonsoir,

Merci, tu me mis sur le chemin, ma colonne A est vide.

je te remercie

 

[jmps]

Re : Fonction ne march plus

Serviteur 🙂