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

pb : besoin d'aide

bbanor

XLDnaute Occasionnel
Bonjour à tous

Je me permets de relancer cette discussion, je sais que je vais me faire crier dessus mais ne voyant aucune réponses et ayant besoin d'aide assez rapidement je me suis permis de le faire. mille excuses d'avance :

Je souhaiterais avoir de l'aide pour la réalisation d'une macro (je suis nul en VBA). Je m'explique :

J'ai mis dans un classeur un référentiel de compétences (feuille "compétences"). J'aimerai que quand je coche les compétences que je veux travailler avec les élèves, celles ci s'affichent dans la feuille "récap" à partir de la ligne 3.

Est ce possible de le réaliser? Quelqu'un peut il m'expliquer ?
 

Pièces jointes

  • test1.xls.zip
    33.7 KB · Affichages: 28
  • test1.xls.zip
    33.7 KB · Affichages: 30
  • test1.xls.zip
    33.7 KB · Affichages: 30

vbacrumble

XLDnaute Accro
Re : pb : besoin d'aide

Bonsoir


Sans te crier dessus, je t'informe qu'en restant dans le premier fil de discussion
et en faisant ce qu'on appelle un up (répondre toi-même dans ton post ), tu obtiens le même résultat sans les inconvénients.

Tu peux même ajouter des détails pour mieux expliciter ton problème.
 

bbanor

XLDnaute Occasionnel
Re : pb : besoin d'aide

Merci pour les conseils. j'en prends note tout suite.

J'imagine que mon fichier n'est pas très explicite. J'ai ajouté dans celui ci dessous des renseignements un peu plus clairs.
 

Pièces jointes

  • test1.xls.zip
    40.8 KB · Affichages: 35
  • test1.xls.zip
    40.8 KB · Affichages: 34
  • test1.xls.zip
    40.8 KB · Affichages: 33

46MNO83

XLDnaute Junior
Re : pb : besoin d'aide

avec une macro, je sais faire ça, si cela peut t'aider

Sub selectioncompétence()
Dim recap(250, 2)
Sheets("Compétences").Select
cpt = 0
For i = 2 To 250
If Cells(i, 1) <> "" And Len(Cells(i, 1)) < 3 Then
cpt = cpt + 1
For t = 1 To 2
recap(cpt, t) = Cells(i, t)
Next
End If
Next
Sheets("Recap").Select
For i = 1 To cpt
For u = 1 To 2
Cells(i + 2, u) = recap(i, u)
Next
Next
End Sub

j'aurai aimé te renvoyer le fichier, mais je n'y arrive pas
 

bbanor

XLDnaute Occasionnel
Re : pb : besoin d'aide

Bonjour 46MNO83

Je te remercie pour ton aide. ça marche et c'est excellent.

Pourrais tu s'il te plaît m'expliquer ce code car étant très novice en VBA je voudrais apprendre comment fonctionne ce code. Bien si ce n'est pas trop te demander s'il te plaît.

Merci
 

46MNO83

XLDnaute Junior
Re : pb : besoin d'aide

les différents codes?
Dim c'est pour déclarer un tableau dans ce cas 250 lignes 2 colonnes
sheets c'est pour aller sur une feuille
For To Next c'est une boucle pour compter dans ici de 1 à 250
If .... Then c'est une condition
len pour la longueur d'une chaine
cells(ligne, colonne)
j'espère avoir répondu à ton attente
@+
 

bbanor

XLDnaute Occasionnel
Re : pb : besoin d'aide

Merci 46MNO83

Merci pour ta patience et tes lumières.

Je voulais te demander comment faire dans le code pour que de la feuille "compétences" à la feuille "récap" on puisse garder la même mise en forme (cad police / taille d'écriture)

Merci pour ce renseignement complémentaire.

Au fait une autre question : c'est quoi "cpt" et "t"? que veux dire : "cpt = 0" et "cpt = cpt + 1
For t = 1 To 2"?
Encore mille fois merci 46MNO83
 
Dernière édition:

46MNO83

XLDnaute Junior
Re : pb : besoin d'aide

Salut Bbanor

cpt=0 je mets le compteur à Zéro, je l'initialise ici à 0 mais on peux y mettre une valeur
cpt=cpt+1 à chaque passage le compteur augmente de 1
for to next est une boucle
for cpt=1 to 20 next on demande à la boucle de faire 20 tours
t est encore une variable, comme cpt


pour la mise en forme, je ne vois que sélectionner toute la feuille et appliquer format, cellules...

@+
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…