Probleme excel case vide a combler

Résolu/Fermé

zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012 - 9 févr. 2009 à 10:14
zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012 - 13 févr. 2009 à 13:35

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:

Probleme excel case vide a combler
Liste déroulante excel - Guide
Aller à la ligne excel - Guide
Formule excel - Guide
Si et excel - Guide
Supprimer page vide word - Guide

5 réponses

Réponse 1 / 5

m@rina Messages postés 20065 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 23 avril 2024 11 271
9 févr. 2009 à 11:39

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

Réponse 2 / 5

zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012 45
9 févr. 2009 à 11:58

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

Réponse 3 / 5

lermite222 Messages postés 8702 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
9 févr. 2009 à 13:12

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+

zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012 45
11 févr. 2009 à 16:14

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

Réponse 4 / 5

m@rina Messages postés 20065 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 23 avril 2024 11 271
9 févr. 2009 à 13:26

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

zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012 45
11 févr. 2009 à 16:33

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

m@rina Messages postés 20065 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 23 avril 2024 11 271 > zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012
11 févr. 2009 à 17:28

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

zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012 45 > m@rina Messages postés 20065 Date d'inscription mardi 12 juin 2007 Statut Contributeur Dernière intervention 23 avril 2024
11 févr. 2009 à 19:47

rebonjour

je suis desole mais il me met erreur 400

Tu peux mettre ton classeur ou un extrait ici :
https://www.cjoint.com/

ça sera plus pratique.

m@rina

bonjour

ci joint extrait du fichier a modifier

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

cordialement

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

Posez votre question

Réponse 5 / 5

zorgon80 Messages postés 213 Date d'inscription dimanche 20 janvier 2008 Statut Membre Dernière intervention 24 janvier 2012 45
9 févr. 2009 à 14:58

bonjour

merci a vous ca fonctionne vous etes geniaux
cordialement

Discussions similaires

Comment faire le symbole coeur vide/coeur blanc

Comment faire les coeur vide sur FB

Remplacement du zero par une cellule vide !?

Excel formule : nb.si.ens et critère "différent de vide"

Discussions similaires

Newsletters