Imbriquer If dans un For VBA Excel
f894009 Messages postés 17417 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
- Si ou 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...