Remplacer la valeur d'une cellule par l'entête de sa colonne Fermé

Question

Bonjour à tous,

je me retrouve face à un problème que je n'arrive pas à résoudre!
J'ai un tableau qui peut se résumer brièvement comme ceci :

A = identifiant         B=nb jours de charge     C=01/10/2016    D=02/10/2016
AMER                        1,5                                        1,5
PDUR                        2                                                                                2

Je souhaiterais réaliser une macro qui, pour chaque ligne, quand elle trouve une valeur >0 à partir de la colonne C, elle remplace cette valeur par son entête de colonne.
Dans  l'exemple la macro remplacerait donc dans les colonnes C et D les valeurs 1,5 par 01/10/2016 et 2 par 02/10/2016.

Si vous aviez un début de piste ce serait formidable car je tourne en rond depuis 2 jours !

Merci beaucoup

ccm81 · Answer

Bonjour

Ce n'est pas très clair
Peux tu envoyer un bout de ton fichier, sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu

1) Tu vas dans https://www.cjoint.com/ 
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier 
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint] 
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien 
   en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".

Cdlmnt

ccm81 · Answer

Si j'ai compris
Feuille Feuil1 en J11 tu veux récupérer la liste des 3 dates 
10/10/2016 11/10/2016 14/10/2016
Si c'est çà, il faudra certainement passer par une fonction personnalisée (macro)
tu dis

ccm81 · Answer

En bref, tu veux écraser les cellules non vides de la plage K10:AO69 (pour octobre) par l'entête de colonne (date ligne 10)

ccm81 · Answer

Essaies ceci
Const lideb = 10Const codeb = 11Public Sub OK()Dim co As Long, cofin As Long, li As Long, lifin As Long, d As DateWith ActiveSheet  d = .Cells(lideb, codeb)  If Month(d) = 12 Then    df = CDate(Day(d) & "/" & 1 & "/" & Year(d) + 1)  Else    df = CDate(Day(d) & "/" & Month(d) + 1 & "/" & Year(d))  End If  lifin = .Cells.Find("*", , , , xlByRows, xlPrevious).Row  cofin = codeb + df - d - 1  For li = lideb + 1 To lifin    For co = codeb To cofin      If .Cells(li, co).Value <> "" Then        .Cells(li, co).Value = .Cells(lideb, co).Value        .Cells(li, co).NumberFormat = "dd/mm/yyyy"      End If    Next co  Next liEnd WithEnd Sub
Une remarque en passant. Tu devrais mettre la directive
Option Explicit 
en début de module, ça t'obligerait à déclarer toutes les variables utilisées, 

Cdlmnt

Remplacer la valeur d'une cellule par l'entête de sa colonne

4 réponses

Discussions similaires