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
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 !!!
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:
- Help VBA Excel
- Liste déroulante excel - Guide
- Si et excel - Guide
- Word et excel gratuit - Guide
- Déplacer une colonne excel - Guide
- Excel compter cellule couleur sans vba - Guide
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
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...
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...
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
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
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
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
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
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
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
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
Par contre, je n'arrive pas à utiliser la fonction rechercheH dans ce cas de figure...
Peux tu m'aider encore un peu ?
Merci
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
28 juil. 2009 à 11:09
dans m8 de initial met ca :
=RECHERCHEV(I8;Objectif!I2:M52;5)
=RECHERCHEV(I8;Objectif!I2:M52;5)
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
28 juil. 2009 à 11:28
ok merci
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
28 juil. 2009 à 13:30
c'est bon alors, tu as tout ce que tu veux?
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
28 juil. 2009 à 14:34
Oui c'est bon, merci !!
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
28 juil. 2009 à 15:02
cool.. :)
met ton post en résolu ;)
met ton post en résolu ;)