pb : besoin d'aide

[bbanor]

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 ?

 

[vbacrumble]

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]

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.

 

[46MNO83]

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]

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]

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]

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

 

[bbanor]

Re : pb : besoin d'aide

Je renouvelle ma dernière demande d'aide s'il vous plaît


Quelqu'un aurait il la réponse à mes questions?

Merci d'avance

 

[vbacrumble]

Re : pb : besoin d'aide

Bonjour



cpt= abréviation pour compteur

 

[46MNO83]

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...

@+

 

[bbanor]

Re : pb : besoin d'aide

Merci 46MNO83

Je te remercie pour ton aide et tes lumières.

A plus