Help VBA Excel

Résolu
actaris51 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention   -  
jjsteing Messages postés 1670 Date d'inscription   Statut Contributeur Dernière intervention   -
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   Statut Contributeur Dernière intervention   181
 
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   Statut Membre Dernière intervention   2
 
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   Statut Contributeur Dernière intervention   181
 
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   Statut Membre Dernière intervention   2
 
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   Statut Contributeur Dernière intervention   181
 
dans m8 de initial met ca :

=RECHERCHEV(I8;Objectif!I2:M52;5)
0
actaris51 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention   2
 
ok merci
0
jjsteing Messages postés 1670 Date d'inscription   Statut Contributeur Dernière intervention   181
 
c'est bon alors, tu as tout ce que tu veux?
0
actaris51 Messages postés 93 Date d'inscription   Statut Membre Dernière intervention   2
 
Oui c'est bon, merci !!
0
jjsteing Messages postés 1670 Date d'inscription   Statut Contributeur Dernière intervention   181
 
cool.. :)

met ton post en résolu ;)
0