Ecrire dans une cellule vide si une est pleine - RÉSOLU

[jenno]

Bonjour,

Je veux créer une macro qui permet d'écrire "0000-00-00" dans les cellules vide de plusieurs colonnes si les cellules de colonnes A est "non vide".

Merci pour votre aide.

 

[ralph45]

Re : Ecrire dans une cellule vide si une est pleine

Bonjour et bienvenue jenno...

Un petit tour sur la charte t'aurait du faire penser à joindre un fichier exemple pour une aide optimisée.
Dans l'attente de celui-ci, meilleurs voeux pour 2012.

A plus !

 

[jenno]

Re : Ecrire dans une cellule vide si une est pleine

Oups j'ai oublié.

en complement si A est plein mettre "0000-00-00" dans G, O, T, AA, AB, AC, AD, AE, AF, AH, AJ, AK, AL, AM, AN, AQ, AS, AT, AV, AW, AY, BB, BC, BD, BG.

Merci par avance.

 

[ralph45]

Re : Ecrire dans une cellule vide si une est pleine

Re,

Une petite précision supplémentaire : ta colonne G est une date.

Lorsque tu nous dis vouloir un format de type "0000-00-00", est-ce que tu veux :
1° aaaa-mm-dd (Année-Mois-Jour), ce qui serait le plus logique;
2° aaaa-dd-mm (Année-Jour-Mois), bizarre, mais on me l'a déjà demandé dans ma boite.😕

A plus !

 

[ROGER2327]

Re : Ecrire dans une cellule vide si une est pleine

Bonjour à tous

Cela, peut-être ?

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim i%, plg As Range, cel As Range, cOff()
    Set plg = Intersect(Cible, Columns(1).Resize(Rows.Count - 1, 1).Offset(1, 0))
    If Not plg Is Nothing Then
        cOff = Array("G", "O", "T", "AA", "AB", "AC", "AD", "AE", "AF", "AH", "AJ", "AK", "AL", "AM", "AN", "AQ", "AS", "AT", "AV", "AW", "AY", "BB", "BC", "BD", "BG")
        Application.EnableEvents = False
        For Each cel In plg.Cells
            If Not IsEmpty(cel) Then
                For i = 0 To UBound(cOff)
                    If IsEmpty(Range(cOff(i) & cel.Row)) Then Range(cOff(i) & cel.Row).Value = "0000-00-00"
                Next
            End If
        Next
        Application.EnableEvents = True
    End If
End Sub

dans le module de la feuille concernée.​

ROGER2327
#5366

Samedi 14 Décervelage 139 (Saints 4 Sans-Cou, enchanteurs - fête Suprême Quarte)
21 Nivôse An CCXX, 4,5553h - pierre à plâtre
2012-W02-3T10:55:58Z

 

[jenno]

Re : Ecrire dans une cellule vide si une est pleine

Re,

pour répondre à ralph45, toutes les colonnes que j'ai indiqué avant sont des dates,
c'est bien la 1ere solution aaaa-mm-dd (Année-Mois-Jour) ce qui permet d'alimenter des formules de calcul

 

[jenno]

Re : Ecrire dans une cellule vide si une est pleine

Merci ROGER 2327, pour le code VBA.
Mais je ne comprend comment le code va se lancer, je l'ai coller comme indiqué.
sinon, est il possible de l'avoir en version macro ?

A+.

 

[ROGER2327]

Re : Ecrire dans une cellule vide si une est pleine

Une fois la procédure installée, revenir à la feuille, sélectionner la colonne A, faire un copier/coller.
Ensuite, toute saisie d'une valeur en colonne A provoquera la mise à jour des colonnes G, O, etc.

 

[jenno]

Re : Ecrire dans une cellule vide si une est pleine

j'ai bien fait le copier/coller de la colonne A, mais rien n'y fait...

serait il possible d'avoir plus d'explication car je ne suis pas très doué sur ce coup là.

Merci

 

[jenno]

Re : Ecrire dans une cellule vide si une est pleine - RÉSOLU

Après recherche, j'ai trouvé le problème du dysfonctionnement, de la solution proposé par ROGER2327.
je croyais qu' Il faut coller le code sous vba dans le module où se stock les macros, mais non c'est dans la feuille toujours sous vba.

Merci beaucoup.
😉

 

[ROGER2327]

Re : Ecrire dans une cellule vide si une est pleine - RÉSOLU

Bonsoir jenno

Après recherche, j'ai trouvé le problème du dysfonctionnement, de la solution proposé par ROGER2327.
je croyais qu' Il faut coller le code sous vba dans le module où se stock les macros, mais non c'est dans la feuille toujours sous vba.

Merci beaucoup.
😉

C'est pourquoi j'ai écrit plus tôt (message #5) :

(...) dans le module de la feuille concernée.

Bonne nuit !


ROGER2327
#5369

Samedi 14 Décervelage 139 (Saints 4 Sans-Cou, enchanteurs - fête Suprême Quarte)
21 Nivôse An CCXX, 8,6103h - pierre à plâtre
2012-W02-3T20:39:53Z