inserer une ligne quand 2 celulles sont différentes

E

EX_BZH

Guest

• 8 Février 2013

• #2

Re : inserer une ligne quand 2 celulles sont différentes

Bonjour,

Vous voulez-insérer une ligne lorsque la date est différente ? Ou aussi lorsque la date est identique mais l'heure différente ?

 

Dernière modification par un modérateur: 8 Février 2013

Vote positif 0 Vote négatif

A

anthonyhk

Guest

• 8 Février 2013

• #3

Re : inserer une ligne quand 2 celulles sont différentes

Bonjour,

j'aimerais insérer une ligne lorsque la date est différente.
Mais il y a le problème de certaines cellules qui ont la date et l'heure.

au final, j'aimerais que lorsque la date est différente, il y a une insertion de ligne.

Pour info, ces données proviennent d'une extraction, donc je ne peux pas mettre les dates dauns une colonne, et l'heure dans une autre 🙂

 

Vote positif 0 Vote négatif

E

EX_BZH

Guest

• 8 Février 2013

• #4

Re : inserer une ligne quand 2 celulles sont différentes

Dans ce cas, je vous conseillerai d'utiliser la fonction left qui permet de sélectionner qu'une partie des données de la cellules.

Vous ne testez ainsi que les caractères représentant la date.

Soit vous mettez vos dates en forme pour qu'elles aient toutes le même nombre de caractère (10)
Soit vous conserver vos dates actuelles (entre 9 et 10 caractères), et tester les 9 puis les 10 premiers caractères.

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 8 Février 2013

• #5

Re : inserer une ligne quand 2 celulles sont différentes

Bonjour anthonyhk, EX_BZH, le Forum,

Voici une proposition de modification de la macro 'hop" qui devrait donner le résultat escompté :

Code:

Sub hop()
Dim i As Integer, a As Integer, fin As Integer

a = 7
fin = Range("A65536").End(xlUp).Row
'Worksheets("prevision").Select <-- Ligne inutile puisque le bouton qui lance la macro est sur cette feuille
For i = a To fin
    If Day(Cells(i + 1, 1)) <> Day(Cells(i, 1)) Or Month(Cells(i + 1, 1)) <> Month(Cells(i, 1)) Or _
      Year(Cells(i + 1, 1)) <> Year(Cells(i, 1)) Then
        Range("A" & i + 1).EntireRow.Insert
        i = i + 1
    End If
Next i
End Sub

Cordialement.

 

Vote positif 0 Vote négatif

A

anthonyhk

Guest

• 11 Février 2013

• #6

Re : inserer une ligne quand 2 celulles sont différentes

Merci ça marche impec
🙂

 

Vote positif 0 Vote négatif