Changer le format date

Résolu/Fermé

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - Modifié le 16 nov. 2017 à 13:55
nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020 - 17 nov. 2017 à 10:26

Bonjour mes amis,

Voici une macro qui fait le deplacement des colonnes.

je vouderai changer le format de la colonne A en format Date de la feuil Output.

et s'il est possible de mettre une condition pour remplir la colonne F: Si la colonne G possitive mettez la lettre "C" sinon "D".

Sub converter()
Dim sh As Worksheet
Dim ws As Worksheet
Dim a As Long
Dim b As Long

Set ws = Sheets("Input")
Set sh = Sheets("Output")

b = ws.Range("A1").End(xlDown).Row
c = sh.Range("A1").End(xlDown).Row
sh.Activate
sh.Range("A2", Cells(c, "I")).Clear
'sh.Range("A2", Cells(c, "I")).Interior.Color = RGB(255, 255, 255)
For a = 2 To b
sh.Cells(a, "C") = ws.Cells(a, "C")
sh.Cells(a, "A") = ws.Cells(a, "G")
sh.Cells(a, "E") = ws.Cells(a, "I")
sh.Cells(a, "B") = ws.Cells(a, "L")
sh.Cells(a, "G") = ws.Cells(a, "M")
sh.Cells(a, "D") = ws.Cells(a, "X")


Next
sh.Range("A2", Cells(b, "A")).NumberFormat = "DD/MM/YYYY"
End Sub

Merci infiniment

A voir également:

Changer le format date
Changer dns - Guide
Piratage facebook changer mot de passe - Guide
Telecharger format factory - Télécharger - Conversion & Codecs
Format epub - Guide
Changer clavier qwerty en azerty - Guide

1 réponse

Réponse 1 / 1

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649
16 nov. 2017 à 13:57

Bonjour,

As tu essayé :

sh.Range("A2", Cells(b, "A")).NumberFormat = "dd/mm/yy;@"

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 nov. 2017 à 15:32

Merci Mr, ça marche avec bien. Concernant la condition pour remplir la colonne F: Si la colonne G possitive mettez on lets "C" sinon cest "D".

jordane45 Messages postés 38138 Date d'inscription mercredi 22 octobre 2003 Statut Modérateur Dernière intervention 17 avril 2024 4 649 > nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 nov. 2017 à 16:12

Tu fais une formule dans ta feuille ou sinon tu boucles sur tes cellules et tu fais un if

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 nov. 2017 à 16:45

J'ai bien compris Mr la formule mais je ne sais pas comment puis je boucler les cellules et je fais un if???
pas compris

Un truc du genre :

dim maplageC as Range

set maplageC = sh.Range("G2", Cells(b, "G"))

for each cellule IN maplageC
  If cellule.value > 0 Then 
     sh.cells(cellule.row,7).value = "C" 
  else
    sh.cells(cellule.row,7).value = "D" 
  End If

Next

nonossov Messages postés 611 Date d'inscription lundi 29 décembre 2014 Statut Membre Dernière intervention 17 janvier 2020
16 nov. 2017 à 18:23

Merci infiniment Mr Jordane, j'ai essayé de faire le meme striture pour appliquer cette codition:

Si le chiffre dans la colonne G est positif je met le chiffre dans la colonne H. si le chiffre dans la colonne G est négatif il reste dans la meme cellule?? mais je n'ai pas pu réussir

Merci infiniment pour tous.

Discussions similaires

Menace "Interpol" après webcam coquine

Prélèvement JM Jacquie et Michel date.

Problème Whatsapp - "La date est incorrecte"

Discussions similaires

Newsletters