Dupliquer la valeur des cellules

[Nino3579]

Bonjour;
J'ai la configuration suivante:
a b c
27 12/11/1902 10/12/1931
27 12/11/1902
27 12/11/1902
27 12/11/1902
28 22/02/1907 01/01/1931
28 22/02/1907
28 22/02/1907
28 22/02/1907
29 25/01/1906 01/02/1932
29 25/01/1906
29 25/01/1906
29 25/01/1906

Je voudrai dupliquer la valeur de b dans la colonne C au cas ou la valeur a est la même.
Merci
Nino3579

 

[wigi]

Bonsoir Nino3579

Alors, il faut sélectionner les cellules dans colonnes C.
Puis, tapez F5, Spécial... > Blanks (les champs vides, je ne sais pas le mot exacte dans la version française de Excel) > Puis OK.
Puis, tapez:

=

en poussez la flèche à gauche

Puis poussez Ctrl-Enter au lieu de simplement Enter. De cette façon, vous aurez une formule dans toutes les cellules vides de colonne C.
Si vous voulez, vous pouvez copier/coller en valeurs.

 

[Nino3579]

Bonjour Wigi et merci beaucoup;

Je m'excuse mais je me suis mal exprimé dans la formulation de ma question:
Au cas ou "a1 = a2" " c1=c2 " sinon suivant de façon à remplir les cellules vides de "c" par la valeur de la cellule précédente dans "c"

De nouveau avec mes excuses et mes remerciements anticipés.
Nino3579

 

[Marcelo Branco]

Salut,

Pourriez-vous expliquer les résultats attendus dans l'échantillon des données affichées au #1?

M.

 

[wigi]

Par example:

Sub FillEmptyCells()

    Dim rng As Range


    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    On Error GoTo ErrHandler


    With ActiveSheet


        For Each rng In .Range("C3:C" & .Range("A" & .Rows.Count).End(xlUp).Row).SpecialCells(xlCellTypeBlanks).Areas


            With rng


                .NumberFormat = .Cells(1).Offset(-1).NumberFormat
                .Value = rng.Cells(1).Offset(-1).Value
            End With


        Next


    End With
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True


    On Error GoTo 0


    Exit Sub


ErrHandler:


    MsgBox "An error occurred. Please investigate.", vbCritical, "Error"


End Sub