Vba code généré erreur 104 après addition colonne dans excel

Fermé
Seifou43 Messages postés 7 Date d'inscription jeudi 2 juillet 2020 Statut Membre Dernière intervention 15 août 2020 - 14 août 2020 à 17:54
yg_be Messages postés 23335 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 - 15 août 2020 à 20:40
Bonjour,

j'ai ajouter une colonne qui contiennes des adresse IP sur une feuille excel .

dans l'éditeur vba j'ai ajouter une ligne ( Print #fileNumber, " address1 String """ & Range("DATA_IP_def1") ..................)

pour extraire les données de la cellules ajoutée , le code d'erreur suivant s’affiche :

Erreur d'exécution 1004 ( Erreur définie par l'application ou par l'objet ).

NB : la macro marche bien avant l'addition de la colonne dans excel .

est qu'il y a quelqu’un qui peux m'aider ?

voila ce que j'ai fait :


 For i = 1 To 8
        If Len(Trim(Range("DATA_IP").Offset(i, 0))) > 0 Then
            If i Mod 2 = 1 Then
                Print #fileNumber, ""
            
                Print #fileNumber, "// IP " & Range("DATA_Position").Offset(i, 0)
                
                Print #fileNumber, ""
                
                st1 = Replace(Range("DATA_Position").Offset(i, 0), "A-", "")
            End If

        ''''DONEE1

            Print #fileNumber, "ECHO "" IP=" & Range("DATA_IP").Offset(i, 0) & """"
       
            Print #fileNumber, "   ""POS=" & st1 & ",VRRP=1 """  
      
          
            Print #fileNumber, "    address0 String """ & Range("DATA_IP_def0").Offset(i, 0) & """"
   //       Print #fileNumber, "    address1 String """ & Range("DATA_IP_def1").Offset(i, 0) & """"
        
         
            Print #fileNumber, ""
       End If
    
    Next i   



Merci
A voir également:

3 réponses

yg_be Messages postés 23335 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 Ambassadeur 1 551
14 août 2020 à 18:49
bonjour,
tu n'as pas indiqué à quelle ligne se produit l'erreur.
en plus d'avoir ajouté la ligne de code, as-tu ajouté une zone de cellules nommée "DATA_IP_def1"?
0
Seifou43 Messages postés 7 Date d'inscription jeudi 2 juillet 2020 Statut Membre Dernière intervention 15 août 2020
14 août 2020 à 20:56
salut :

l'erreur se produit à la ligne ajouter .

 //       Print #fileNumber, "    address1 String """ & Range("DATA_IP_def1").Offset(i, 0) & """"


2 / oui la zone de cellule a été ajouter .
0
yg_be Messages postés 23335 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551
14 août 2020 à 22:42
remplaçons cette ligne par:
dim rrr as string, sss as string
rrr= Range("DATA_IP_def1").Offset(i, 0)
sss= "    address1 String """ &rrr & """"
Print #fileNumber, sss

à quelle ligne obtiens-tu l'erreur?
0
Seifou43 Messages postés 7 Date d'inscription jeudi 2 juillet 2020 Statut Membre Dernière intervention 15 août 2020
15 août 2020 à 16:31
salut :

j’obtiens le message d'erreur a cette ligne : rrr= Range("DATA_IP_def1").Offset(i, 0)

j'ai eu le nouveau message d'erreur suivant :

la méthode range de l'objet _worksheet a échoué.

merci
0
yg_be Messages postés 23335 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 18 novembre 2024 1 551
15 août 2020 à 20:40
ce qui confirme ma suspicion: es-tu certain d'avoir ajouté le nom?
0