Probleme excel case vide a combler

Résolu
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   -  
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   -
Bonjour,

j'ai un tableau avec differentes colonnes A B C etc....
la colonne A contient des references la colonne B des dates C la designation etc.....
mon probleme est que la colonne des dates a plein de cases vides entre chaque date
par exeple la cellule b2 a 01/02/09 la prochaine date sera a B7 puis la suivante a B23 etc
rien n'est regulier quant aux cellules vides quelqu'un aurait il un idee de la maniere a proceder
pour remplir les cellules vides avec la date qui est en B2 jusqu'a B6 et la nouvelle B8 jusqu'aB22 etc....
car manuellement ce serait trop long (tableau en question 25670 lignes )
merci par avance
cordialement
A voir également:

5 réponses

m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour,

En fait tu veux remplir les cellules vides avec la valeur de la première cellule complétée située au-dessus.

Il faut donc une macro si tu as tant de lignes que ça.

Pour commencer tu vas nommer tes colonnes. Dans la macro ci-dessous, j'ai utilisé le nom "dates" pour la colonne qui contient les dates. Attention, si ta colonne n'est pas nommée la macro va descendre jusqu'en bas !
Commence par faire un essai sur un exemple.

Sub lesdates()
Dim cellule1
With Range("dates")
    Set c = .Find("")
    If Not c Is Nothing Then
        cellule1 = c.Address
        Do
            c.Value = c.End(xlUp).Value
            Set c = .FindNext(c)
        Loop While Not c Is Nothing
    End If
End With
End Sub


m@rina
0
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   45
 
bonjour

merci pour ton aide
j'ai bien renomme ma colonne comme dans ta macro dates
seulement lorsque j'execute il me met un msg d'erreur
erreur d'execution 1004
erreur definie par l'action ou par l'objet
cordialement
0
lermite222 Messages postés 8724 Date d'inscription   Statut Contributeur Dernière intervention   1 191
 
Bonjour toutes,tous
Tu doit mettre la macros de M@rina dans le module de la feuille, si tu le met dans un module général tu doit spécifier le nom de la feuille.
Autre façon de procéder...
Sub RemplirB()
Dim Lig As Long, D As Date
    For Lig = 2 To Range("B65536").End(xlUp).Row
        If Cells(Lig, 2) <> "" Then
            D = Cells(Lig, 2)
        Else
            Cells(Lig, 2) = D
        End If
    Next Lig
End Sub

Aussi dans le module de la feuille.
A+
0
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   45
 
bonjour lermite222

vu que ta macro fonctionne du feu de dieu si je veux l'appliquer
a une autre colonne ( n°lot par exemple ) que dois je changer
dans ta macro?

par avance merci pour ta reponse
cordialement
0
m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention   11 465
 
Bonjour,

Ben non, il s'agit d'une plage nommée, ça doit marcher dans un module normal. Je viens de tester et ça fonctionne parfaitement.
Vérifie si le nom "dates" est bien mis.

m@rina
0
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   45
 
bonjour marina

ca fonctionne effectivement tres bien sur la colone b mais pas la H
je suppose que l'on doit changer qquechose dans la macro non?
desole pour mon ignorance a ce sujet
0
m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention   11 465 > zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour zorgon80,

On se fiche du numéro de la colonne puisque j'ai utilisé les noms.
Donc, donne un nom à ta colonne H et change "Dates" par le nom que tu auras donné.

m@rina
0
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   45 > m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention  
 
rebonjour

je suis desole mais il me met erreur 400
0
m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention   11 465 > zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention  
 
Tu peux mettre ton classeur ou un extrait ici :
https://www.cjoint.com/

ça sera plus pratique.

m@rina
0
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   45 > m@rina Messages postés 23917 Date d'inscription   Statut Contributeur Dernière intervention  
 
bonjour

ci joint extrait du fichier a modifier

https://www.cjoint.com/?cpnJgjcQA3

cordialement
0

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

Posez votre question
zorgon80 Messages postés 213 Date d'inscription   Statut Membre Dernière intervention   45
 
bonjour

merci a vous ca fonctionne vous etes geniaux
cordialement
0