Imbriquer If dans un For VBA Excel
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
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
- Imbriquer If dans un For VBA Excel
- Downloader for pc - Télécharger - Téléchargement & Transfert
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Trier un tableau excel - Guide
- Déplacer colonne excel - Guide
1 réponse
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...