Imbriquer If dans un For VBA Excel

Fermé
elglouton Messages postés 189 Date d'inscription dimanche 19 avril 2009 Statut Membre Dernière intervention 11 novembre 2022 - Modifié le 11 nov. 2022 à 09:12
f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 - 11 nov. 2022 à 09:36

Bonjour, 

J'ai trouver des sujets similaire et j'ai tenté de les appliquer a mon cas mais sans succès...

Je tente d'écrire un code pour lire un fichier .xml, ce point je l'ai résolut le code est peut etre pas tres joli mais il fonctionne.

Le step suivant c'est de restreindre la lecture a une liste de nodes donné et pour le faire j'ai pensé a un If..

Pour tous les node"SN" du fichier xml

If "Je trouve le carton NodeSSCC de la liste" je poursuis le code 

Sinon je passe au node"SN" suivant

Je n'arrive pas a joindre un fichier exemple pour le moment

 
 'Debut=0 et fin de boucle = Nb de SN-1
For j = 0 To (SNNodes.Length - 1)
        
'On verifi si le N° de carton apparien a la lise a verifiée
If SSCC = mainWorkBook.ActiveSheet.Range("j" & j).Value Then
 
 'valeur du x_éeme N° de serie
    SN = SNNodes(j).NodeValue
 
 'Mise en forme
    mainWorkBook.ActiveSheet.Range("c" & j + 2).Borders.Value = 1
    mainWorkBook.ActiveSheet.Range("c" & j + 2).Value = SN
 
 'On ecris la chaine GTIN+SN du fichier xml
    mainWorkBook.ActiveSheet.Range("d" & j + 2).Borders.Value = 1
 'On extrai la chaine apres l'AI "(21)" du GTIN+SN du fichier xml
    mainWorkBook.ActiveSheet.Range("d" & j + 2).Value = Mid(SN, InStr(1, SN, "(21)") + 4, (Len(SN) - InStr(1, SN, "(21)") + 4))
 
    Next j
Else
A voir également:

1 réponse

f894009 Messages postés 17206 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 22 novembre 2024 1 711
11 nov. 2022 à 09:36

Bonjour,

Pour transmettre un fichier,
Veillez a ce qu'il n'y ait PAS DE DONNEES CONFIDENTIELLES
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : http://cjoint.com
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...

0