Format de cellules

CMoa · 4 Février 2008

Bonsoir le Forum 🙂
Je dispose d'une macro pour copier des cellules et je n'arrive pas à en changer le format après le "copiage".
le bug vient de la ligne en rouge et si quelqu'un peut m'aider à résoudre ce souci.

Code:

Sub copier_dates2()
Dim i As Integer
For i = 2 To Range("I65536").End(xlUp).Row
    If Cells(i, 9).Value <> "" Then
       Cells(i - 1, 9).ClearContents
       Cells(i, 7).ClearContents
       Cells(i, 2).ClearContents
       Cells(i, 1).ClearContents
       Cells(i, 12).ClearContents
       Cells(i, 13).ClearContents
       Cells(i, 14).ClearContents
       Cells(i + 1, 1).Value = Cells(i, 9).Value
     End If
    If Cells(i, 10).Value <> "" And Cells(i, 1).Value = "" Then
        Cells(i, 1).Value = Cells(i - 1, 1).Value
    End If
    If Cells(i, 9).Value <> "" And Cells(i + 1, 9).Value = "" Then
        Cells(i - 1, 9).ClearContents
    End If
    Next i
  For a = 1 To Range("A65536").End(xlUp).Row
    If Cells(i, 1).Value <> "" Then
       [COLOR="Red"]Cells(i, 1).Format = ("dd mm yy")[/COLOR]
End If
Next a
End Sub

J'autorise aussi une "tonte" afin de raccourcir cette macro.
Merci pour votre aide ou tout simplement pour le temps passé à y réfléchir;à lire ....ce fil.

CMoa · 5 Février 2008

Re : Format de cellules

re
hélas non sauf si je les incrits manuellement.
Teste par toi-même.
@+

Staple1600 · 5 Février 2008

Re : Format de cellules

RE

Regardes les lignes en gras s'appliquent à la colonne A
en testant comme ça ca fonctionne non?

Code:

Sub copier_datestaple()
Dim i As Long
Dim a As Long
For i = 2 To Range("I65536").End(xlUp).Row
    If Cells(i, 9).Value <> "" Then
       Cells(i - 1, 9).ClearContents
       Cells(i, 7).ClearContents
       Cells(i, 2).ClearContents
       [B]'Cells(i, 1).ClearContents[/B]
       Cells(i, 12).ClearContents
       Cells(i, 13).ClearContents
       Cells(i, 14).ClearContents
     [B] 'Cells(i + 1, 1).Value = Cells(i, 9).Value[/B]
     End If
    'If Cells(i, 10).Value <> "" And Cells(i, 1).Value = "" Then
        [B]'Cells(i, 1).Value = Cells(i - 1, 1).Value[/B]
    'End If
    If Cells(i, 9).Value <> "" And Cells(i + 1, 9).Value = "" Then
        Cells(i - 1, 9).ClearContents
    End If
    Next i
  For a = 1 To Range("A65536").End(xlUp).Row
    If Cells(a, 1).Value <> "" Then
       Cells(a, 1).NumberFormat = "dd mm yy"
End If
Next a
End Sub

CMoa · 5 Février 2008

Re : Format de cellules

Bonjour staple 1600 et le Forum 🙂
Avec la dernière modif :toujours rien dans les cellules copiées.Par contre celles restées vides plus bas;le format est bien appliqué.

Dans la colonne A j'ai rentré 2 valeurs de dates: "=mardi 4 décembre 07" et "04/12/07".
Lorsque je rentre la formule =NB.SI(A1:A36;"=mardi 4 décembre 07");la cellule ne compte que les nombre correspondant au critère et si je modifie la formule =NB.SI(A1:A36;"=04/12/07");là aussi j'ai une erreur parce-que les mardi 4 décembre 07 ne sont pas comptabilisés.😱

Avec la formule droite ou gauche pour extraire la date sous format "4 décembre 07" : reste figée elle aussi tant que je n'ai pas effacé manuellement le "mardi" en début de cellule et enlevé l'espace avant le 4.

Une proposition serait la bienvenue car là je ne sais plus quoi faire pour m'en sortir.
Bonne journée

Format de cellules

CMoa

XLDnaute Occasionnel

CMoa

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

CMoa

XLDnaute Occasionnel

Discussions similaires

Format de cellules

CMoa

XLDnaute Occasionnel

CMoa

XLDnaute Occasionnel

Pièces jointes

Staple1600

XLDnaute Barbatruc

CMoa

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency