Posez votre question Signaler

Probleme excel case vide a combler [Résolu]

zorgon80 214Messages postés dimanche 20 janvier 2008Date d'inscription 24 janvier 2012 Dernière intervention - Dernière réponse le 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
Lire la suite 
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
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
Ajouter un commentaire
Réponse
+0
moins plus
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 214Messages postés dimanche 20 janvier 2008Date d'inscription 24 janvier 2012 Dernière intervention - 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épondre
Ajouter un commentaire
Réponse
+0
moins plus
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 214Messages postés dimanche 20 janvier 2008Date d'inscription 24 janvier 2012 Dernière intervention - 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
Répondre
m@rina 11550Messages postés mardi 12 juin 2007Date d'inscription ContributeurStatut 2 juillet 2015 Dernière intervention - 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
Répondre
zorgon80 214Messages postés dimanche 20 janvier 2008Date d'inscription 24 janvier 2012 Dernière intervention - 11 févr. 2009 à 19:47
rebonjour

je suis desole mais il me met erreur 400
Répondre
m@rina 11550Messages postés mardi 12 juin 2007Date d'inscription ContributeurStatut 2 juillet 2015 Dernière intervention - 11 févr. 2009 à 21:54
Tu peux mettre ton classeur ou un extrait ici :
http://cjoint.com

ça sera plus pratique.

m@rina
Répondre
zorgon80 214Messages postés dimanche 20 janvier 2008Date d'inscription 24 janvier 2012 Dernière intervention - 13 févr. 2009 à 13:35
bonjour

ci joint extrait du fichier a modifier

http://cjoint.com/?cpnJgjcQA3

cordialement
Répondre
Ajouter un commentaire
Réponse
+0
moins plus
bonjour

merci a vous ca fonctionne vous etes geniaux
cordialement
Ajouter un commentaire
Ce document intitulé «  probleme excel case vide a combler  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.