Help VBA Excel

Résolu/Fermé
actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 - 28 juil. 2009 à 10:05
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 - 28 juil. 2009 à 15:02
Bonjour,
J'ai un gros soucis sous Excel :
J'explique ce que je veux à l'aide de ce template :
http://www.cijoint.fr/cjlink.php?file=cj200907/cijoTi4kda.xls
Dans la feuille Initiale, voici les données sous le format que j'ai au départ.
Je voudrais créer une macro qui passe automatiquement du format dans initial à celui dans la feuille "objectif", quels que soit les valeurs que j'ai.
CAD :
Copier chaque Level 1,2,3 et 4 sur toute la colonne
Supprimer les lignes où il n'y a aucune valeur dans la colonne "date of identification"
Pouvez vous m'aider ???

Merci !!!
A voir également:

8 réponses

jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
28 juil. 2009 à 10:14
Bonjour,

ce que tu veux c'est que dans la feuille initial, il mette sur la ligne ID1 pour chaque Level, la date 'date of identification' correspondant à ID1 de la feuille objectif c'est ca?

de plus :
Supprimer les lignes où il n'y a aucune valeur dans la colonne "date of identification" ?? de quel feuille?

je ne voit pas de case vide sauf dans la feuille 'initial' mais elles sont là pour un agencement plus lisible...
0
actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 2
28 juil. 2009 à 10:21
Bonjour,
En fait ce que je veux c'est que pour chaque livrable (donc pour chaque ligne où il y a une date of identification, ou un ID*), le level associé soit recopié sur chaque colonne de cette ligne, comme sur la feuille objectif.
Il s'agit bien de supprimer les lignes "vides" de la feuille initial. L'agencement est moins lisible mais le traitement des données est plus facile :
exemple : avec le format "objectif", je peut facilement selectionner l'ensemble de mes dates pour traitement avec une formule du type :
=DECALER(Deliverables_Database!$N$5;;;NBVAL(Deliverables_Database!$N:$N)-1
qui ne marche pas quand il y a des "trous".

Merci
0
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
28 juil. 2009 à 10:32
ok,

je pense qu une rechercheH doit resoudre ton probleme pour mettre chaque valeur de level en fonction de l'ID..

Pour supprimer les ligne vide une ptite macro de ce style :

With Worksheets("Initial).Range("m2:m500")
Set trouvé1 = .Find("", LookIn:=xlValues)
étiq:
If Not trouvé1 Is Nothing Then
NumRow = trouvé1.Row
trouvé1.select
currentCell.EntireRow.Delete
Set trouvé1 = .FindNext(trouvé1)
If NumRow < trouvé1.Row Then GoTo étiq

End With
0
actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 2
28 juil. 2009 à 11:03
Ok pour supprimer les lignes vides.
Par contre, je n'arrive pas à utiliser la fonction rechercheH dans ce cas de figure...
Peux tu m'aider encore un peu ?
Merci
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
28 juil. 2009 à 11:09
dans m8 de initial met ca :

=RECHERCHEV(I8;Objectif!I2:M52;5)
0
actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 2
28 juil. 2009 à 11:28
ok merci
0
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
28 juil. 2009 à 13:30
c'est bon alors, tu as tout ce que tu veux?
0
actaris51 Messages postés 93 Date d'inscription mardi 15 juillet 2008 Statut Membre Dernière intervention 11 juillet 2011 2
28 juil. 2009 à 14:34
Oui c'est bon, merci !!
0
jjsteing Messages postés 1670 Date d'inscription vendredi 11 mai 2007 Statut Contributeur Dernière intervention 21 mai 2012 181
28 juil. 2009 à 15:02
cool.. :)

met ton post en résolu ;)
0