macro excel pour auto renseigner des cellules avec la valeur du dessus la précedent

[iron]

bonjour,
je cherche une macro qui permet de renseigner des cellules vides
voir exemple en PJ.
Merci pour votre aide.
Cdt, Patrick.

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Salut iron

Je n'ai pas pris le temps de regarder ton fichier, mais à la lecture de ton titre j'ai eu envie de te proposer cette ligne de code :

Selection.FillDown

à l'execution de ce code, la cellule sélectionnée prend la valeur de la cellule juste "au dessus" d'elle.

Bon week end 😎

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Re

ce code testé marche

Sub test()

For i = 2 To 30

Cells(i, 1).Select
If Cells(i, 1).Value = "" Then
Cells(i, 1).FillDown
Else: ActiveCell.Offset(1, 0).Select
End If
Next i

End Sub

 

[iron]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

merci pour ta reponse, mais ce ne fonctionne pas comme voulu
voir PJ
Merci

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Ou est la nouvelle pièce jointe ?

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Tu peux me dire ce qui ne fonctionne pas ?

J'ai fait le code pour les lignes 2 à 30, et pour qu'il s'execute dans la colonne A. A toi de le modifier. Si tu as une limite, définis la derniere ligne.

Tu veux copier quoi ? Le texte ? Le format ? Tout ? Essaie d'être un peu plus précis.

A plus

 

[iron]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

la PJ est dans le message initial (macro.xlsx)
Merci

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Tu n'as pas l'air de vouloir collaborer. Je t'ai posé plusieurs questions dans le précédent post. Si tu n'y réponds pas, tu me vois dans l'incapacité totale de t'aider.

"Aide toi, le ciel t'aidera" a dit le philosophe.
Et bien ici c'est moi le ciel.

Au plaisir de lire tes précisions.

 

[iron]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Tu peux me dire ce qui ne fonctionne pas ?

J'ai fait le code pour les lignes 2 à 30, et pour qu'il s'execute dans la colonne A. A toi de le modifier. Si tu as une limite, définis la derniere ligne.

Tu veux copier quoi ? Le texte ? Le format ? Tout ? Essaie d'être un peu plus précis.

A plus

désolé de n'avoir pas répondu conrrectement, j'avais mal lu.
Ce que je souhaite c'est copier les valeurs (le texte) de la cellule qui se trouve en dessous d'une cellule renseignée. puis quand il arrive sur une cellule deja renseigné, il inscrit la valeur de celle ci dans les cellule vide en dessous, etc...

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Ca j'avais bien compris, et c'est exactement ce que mon code fait. En tout cas avec mon code dans ton fichier exemple ça marchait.

 

[Etienne2323]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Salut iron, dionys0s, le forum,

voici une autre façon de faire.

Sub Test()
Dim Cellule_Reference As String
Dim i as Integer

For i = 1 To 15
    'Si la cellule n'est pas vide, alors on garde sa valeur en mémoire
    'et on passe à la prochaine cellule
    If Cells(i, 1).Value <> "" Then
        Cellule_Reference = Cells(i, 1).Value 'Garde la valeur en mémoire dans une variable
    Else
        Cells(i, 1).Value = Cellule_Reference 'Si la cellule est vide, alors on inscrit le contenu
        'de la cellule de référence
    End If
Next i

End Sub

Cordialement,

Étienne

 

[Staple1600]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Bonsoir


Une autre méthode (que j'avais déjà donné dans ce Lien supprimé)
L'avantage étant d'éviter la boucle 😉

Sub aa()
Dim vide As Range, r As Long
r = [B65536].End(xlUp).Row
Set vide = Range("A1:A" & r).SpecialCells(xlCellTypeBlanks)
vide.Formula = "=R[-1]C"
    With Range("A1:A" & r)
        .Value = .Value
    End With
End Sub

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Bonsoir Etienne, bonsoir Staple

Sympas vos codes. Total respect.

Juste pour info, et seulement si vous l'avez testé, il est bidon mon code ?

 

[Etienne2323]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Salut dionys0s,
j'ai effectivement testé ton code. Il fonctionne bien. Pas de souci 😉

Par contre, nos deux codes se font royalement surclasser par celui de Staple. Passer par les cellules vides, il fallait y penser.

Bonne soirée,

Étienne

 

[dionys0s]

Re : macro excel pour auto renseigner des cellules avec la valeur du dessus la préced

Re tout le monde

Suis rassuré que mon code fonctionne 🙄
Par rapport au code de Staple, je suis contraint d'opiner. C'est tout à fait costaud 😎

Bonne soirée à tous ^^