Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Problème de conditions - Export données - vba

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
T

thespeedy20

XLDnaute Occasionnel
Bonjour à tous, le forum,

Je dois créer une attestation de fréquentation pour des élèves...
Je sélectionne le nom de l'élève via une listbox dans un userform et je dois remplir le formulaire comme ceci :

si le cours ou les cours est de base(B), ils doivent se mettre dans la plage C21:F25
si le cours ou les cours est complémentaire(C), ils doivent se mettre dans la plage : C26:F29

j'ai un petit soucis avec la condition, je n'arrive pas à l'imbriquer dans le code ?
et j'ai petit soucis, j'ai de temps en temps une erreur de type argument ou appel de procédure incorrect sur la ligne suivante :

VB: 
Range("B21").Resize(UBound(tabloR, 2), 5) = Application.Transpose(tabloR)

Je vous remercie pour votre aide

OLi
 

Pièces jointes

Solution
T
Bonsoir,

Voila, j'ai résolu le problème par moi-même...

VB: 
                If tablo(ln, 5) = "B" Then
                
                ReDim Preserve tabloR(4, k + 1)
                tabloR(1, k) = tablo(ln, 2)
                tabloR(2, k) = Left(tablo(ln, 3), 1)
                tabloR(3, k) = Mid(tablo(ln, 3), 2, 2)
                tabloR(4, k) = tablo(ln, 4)
                k = k + 1
                Range("B21").Resize(UBound(tabloR, 2), 5) = Application.Transpose(tabloR)
              
               Else
                
                ReDim Preserve tabloO(4, p + 1)
                tabloO(1, p) = tablo(ln, 2)
                tabloO(3, p) = tablo(ln, 3)
                tabloO(4, p) = tablo(ln, 4)
                p = p + 1...
Trier par date Trier par votes
Bonsoir,

Voila, j'ai résolu le problème par moi-même...

VB: 
                If tablo(ln, 5) = "B" Then
                
                ReDim Preserve tabloR(4, k + 1)
                tabloR(1, k) = tablo(ln, 2)
                tabloR(2, k) = Left(tablo(ln, 3), 1)
                tabloR(3, k) = Mid(tablo(ln, 3), 2, 2)
                tabloR(4, k) = tablo(ln, 4)
                k = k + 1
                Range("B21").Resize(UBound(tabloR, 2), 5) = Application.Transpose(tabloR)
              
               Else
                
                ReDim Preserve tabloO(4, p + 1)
                tabloO(1, p) = tablo(ln, 2)
                tabloO(3, p) = tablo(ln, 3)
                tabloO(4, p) = tablo(ln, 4)
                p = p + 1
                Range("B26").Resize(UBound(tabloO, 2), 5) = Application.Transpose(tabloO)

OLi
 
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

G
  • Question Question
Microsoft 365 Export données
Réponses
4
Affichages
503
GClaire
G
M
  • Résolu(e)
Autres problème de récupération, aucune données
Réponses
7
Affichages
137
mysti54
M
P
  • Question Question
Autres Finalisation de projet VBA pour planning quotidien
2
Réponses
15
Affichages
402
vgendron
  • Résolu(e)
XL 2016 copier/coller en VBA
Réponses
11
Affichages
231
chinel
G
  • Question Question
Microsoft 365 Choix et export de données (Résolu)
Réponses
4
Affichages
670
GClaire
G
L
  • Résolu(e)
Power Query Problème de fusion de données entre deux fichiers Excel sous Power Query
Réponses
8
Affichages
110
chris
O
  • Résolu(e)
XL 2016 Transfert de données sous conditions
Réponses
4
Affichages
556
sylvanu
V
  • Résolu(e)
XL 2021 Ramener les données de façon structurée sans TCD
Réponses
12
Affichages
396
VaLu
V
A
  • Question Question
XL 2021 Automatiser la génération de documents Word à partir d’Excel avec VBA
Réponses
12
Affichages
268
ali591
A
G
  • Question Question
Microsoft 365 Transfert de données
Réponses
7
Affichages
722
GClaire
G
S
  • Question Question
XL 2019 Calculer dimanche de pâques puis insertion du 29 février
2
Réponses
26
Affichages
532
dysorthographie
  • Question Question
Autres Diagramme de Gantt avec beaucoup de contraintes (avec LibreOffice) et formule matricielle multicritères
Réponses
2
Affichages
679
Simon 1234
S
D
  • Question Question
Microsoft 365 formules avec double conditions préalables et plusieurs conditions selon des niveaux de délégations
Réponses
2
Affichages
461
Daniel200666
D
A
  • Résolu(e)
XL 2016 Plage de données fixes pour calcul dans formule
Réponses
3
Affichages
401
sylvanu
C
  • Résolu(e)
XL 2016 Problème de DropDown d'une ComboBox (VBA)
Réponses
2
Affichages
515
crocrocro
C
G
  • Question Question
Microsoft 365 Saut de ligne dans une cellule
Réponses
3
Affichages
522
GClaire
G
  • Question Question
XL 2021 Problème d'accès aux datas d'une autre feuille fermée
3 4 5
Réponses
62
Affichages
3 K
p'tit vieux
B
  • Question Question
XL 2016 VBA formulaire incrémenter un N° de facture selon l'année(mais dates sur deux colonnes)
Réponses
4
Affichages
624
badduke
B
D
  • Question Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
741
Dock91
D
J
  • Question Question
XL 2019 (Résolu) VBA - Mise en surbrillance de ligne (fonction dans ruban)
Réponses
3
Affichages
547
Julien_B
J
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…