Macro Export PDF + Création Dossier Le sujet est résolu

Y compris Power BI, Power Query et toute autre question en lien avec Excel
g
gaetan2812
Membre habitué
Membre habitué
Messages : 54
Inscrit le : 16 mai 2014
Version d'Excel : 2010

Message par gaetan2812 » 27 mai 2014, 11:06

Il y a encore un petit problème, dans l'onglet 1, il y a encore 3 cellules vides après "Pers. 10" et au final, ça essaie de faire une fiche pour ces 3 cellules (voir le fichier).

Par contre, si je supprime le contenu des 3 cellules vides, cela me fait mes fiches uniquement pour les personnes de la liste (5 fiches en tous). Après dans mon utilisation quotidienne, je ne peux pas me permettre de supprimer manuellement le contenu des cases vides, je suis obligé d'en laisser au cas où une nouvelle personne s'ajoute.

J'en demande beaucoup, je suis désolé, mais pourrais-tu m'expliquer rapidement la "logique" à partir du i = 4 aussi s'il te plait.

EDIT : je crois avoir compris pourquoi "i = 4", car la première ligne de la liste est la 4e ?
Exemple Tableau Macro.xls
(91 Kio) Téléchargé 24 fois
Modifié en dernier par gaetan2812 le 27 mai 2014, 11:11, modifié 1 fois.
E
EngueEngue
Membre impliqué
Membre impliqué
Messages : 1'493
Inscrit le : 12 décembre 2013
Version d'Excel : 2010

Message par EngueEngue » 27 mai 2014, 11:10

Toi très peu débrouillard
Sub toto()
With Sheets("Onglet 1")
For i = 4 To .Range("J" & .Rows.Count).End(xlUp).Row
If .Range("J" & i)<>"" then
Sheets("Onglet 3").Range("B2") = .Range("J" & i)
Call PDF
end if
Next i
End With
End Sub
g
gaetan2812
Membre habitué
Membre habitué
Messages : 54
Inscrit le : 16 mai 2014
Version d'Excel : 2010

Message par gaetan2812 » 27 mai 2014, 11:14

Merci beaucoup !!!

C'est pas que je ne suis pas débrouillard (enfin sur ce coup, je le suis pas, je te l'accorde), c'est que j'y connais pas grand chose en VBA (je t'explique par MP).
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message