VBA manip de feuilles excel Fermé

Question

Bonjour, 

J'ai un code simple qui crée une feuille excel à partir d'une autre et je veux garder certaines données mais je reçois un message d'erreur:

Sub CustomerCheck()
    Sheets("All_Prices").Select
    Range("A1").Select
    Dim letter As Range
    Dim r As Range
    Dim strg As String
    Dim strg2 As String
    
    For Each letter In Range("A1", Range("IV1").End(xlToLeft))
    If letter.Font.Bold Then
        strg = letter.Text
        Worksheets.Add(After:=Worksheets(Worksheets.Count)).Name = strg
        With Sheets(strg)
        '....
        End With
        
 ->    For Each r In Sheets(All_Prices).Range("A1", Range("A65536").End(xlUp))
        If r.Font.Bold Then strg2 = r.Text
            Sheets(strg).r.Text = strg2
        
        Next r
    End If
    Next letter
End Sub

Erreur d'indice qui n'est pas dans la sélection? Merci pour vos lumières!
Julia

Polux31 · Answer

Bonjour,

Il manque les ":

For Each r In Sheets("All_Prices").Range("A1", Range("A65536").End(xlUp)) 


;o)

Julz0882 · Answer

Merci Polux, en effet...
Mais ça ne marche toujours pas :

For Each r In Sheets("All_Prices").Range("A1", Range("A65536").End(xlUp))
If r.Font.Bold Then strg2 = r.Text
Sheets(strg).r.Text = strg2

Next r
End If
....
--> erreur 1004 / définie par l'application ou par l'objet

La première itération fonctionne, une nouvelle feuille rfenommée et mise en page apparait mais on ne passe pas "for each / next r"

Julz0882 · Answer

Malheureusement non, c'est toujours bien cette même ligne qui coince.
Je vais creuser cette erreur 1004 : https://support.microsoft.com/fr-fr/help/966294/run-time-error-5-invalid-procedure-call-or-argument

Merci pour votre aide !

Julia