déplacement cellule

G

Guest

Guest

• 18 Octobre 2009

• #2

Re : déplacement cellule

Bonjour Murdoc

1 - Sélectionner les cellules contenant les dates.
2 -Onglet Données/Convertir

Dans l'assistant:
étape 1 : 'Type de donnée d'origine' -> délimité
étape 2 : 'Séparateur' -> Espace
étape 3: 'Aperçu des données: ' cliquer sur la première colonne puis choisir "Date" dans 'Format des données en colonnes'
Puis cliquer sur la deuxième colonne et choisir colonne non distribuée pour ne pas conserver les heures.

A+

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 18 Octobre 2009

• #3

Re : déplacement cellule

Bonjour Hasco,

Merci pour ton aide mais je crois qu'il y a une incompréhension, je cherche à déplacer en ma cellule B2 en entière dans les cellules Jaunes de la colonne A en automatique, et cette oprération doit se répéter pour charque nouvelle date, exemple: B13 (Voir fichier envoyé dans mon 1er message).

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 18 Octobre 2009

• #4

Re : déplacement cellule

il n'y a plus personne??

 

Vote positif 0 Vote négatif

M

Murdoc

Guest

• 19 Octobre 2009

• #5

Re : déplacement cellule

Bonjour,

Il y a t'il quelqu'un qui peut m'aider sur ce sujet ?? Je bloque totalement et je n'ai toujours pas eu de réponse.

Merci d'avance.

 

Vote positif 0 Vote négatif

G

Guest

Guest

• 19 Octobre 2009

• #6

Re : déplacement cellule

Re,

voici une macro qui copie en A les dates rencontrées en B.

Code:

Sub CopieDate()
 Dim plage As Range
 Dim c As Range
 On Error Resume Next
 With ActiveSheet
    Set plage = .Range(.Cells(2, 2), .Cells(.Rows.Count, 2).End(xlUp)).SpecialCells(xlCellTypeConstants)
    If Not plage Is Nothing Then
    
        For Each c In plage.Cells
              If IsDate(Replace(c, ".", "/")) Then
                .Cells(c.Row, 1) = DateValue(Replace(c, ".", "/"))
              End If
        Next
    
    End If
 End With
 
End Sub

A+

 

Vote positif 0 Vote négatif