Résultats pour "format"

1'710 résultats pour cette recherche

Bonjour à tous,

Je bloque sur quelque chose de certainement tout bête :

En cellule "A1" j'ai une date écrite en toute lettre type "Lundi 04 Mai 2020".

Lorsque j'ouvre mon Userform, je souhaite que cette date en question soit récupérée et convertie en format jj/mm/aaaa puis copié dans un TextBox.

J'ai testé CDate()

J'ai testé Format()

Rien n'y fait j'ai toujours des erreurs de type 13 ou alors il ne se passe juste rien ...

Quelqu'un à un début de piste à me donner ?

Merci d'avance.

Bonjour au forum,

Dans le fichier joint, j'importe des données qui sont toutes au format texte (non modifiable car géré par un logiciel externe).

Par une macro et lors de l'importation, je convertis les cellules non vides de le colonne B contenant les dates au format "Date".

Ces cellules sont bien au format "Date" mais je suis obligé de les "valider" une par une avec la touche "Entrée" pour que le format attribué soit pris en compte (les cellules B2:B6 ont étés validées manuellement par la touche "entrée et se placent automatiquement à droite de la cellule, donc le format Date est bien pris en compte).

Sauriez-vous pourquoi cette validation est nécessaire et surtout, comment l'automatiser par VBA ?

Merci d'avance !

11fof.xlsx (8.83 Ko)

Bonsoir le forum

Lorsqu'on a beaucoup de dates en format texte pour x raisons comment peut-on les convertir en format date?

Ex: jeudi 16 janvier 2020 en format 16/01/2020

Merci à vous

61toto.zip (36.96 Ko)

Bonjour,

J'ai besoin de votre aide pour modifier le code VBA que j'utilise habituellement.

Après avoir configuré mon outil, je lance le code me permettant :

  • D'enregistrer sous .pdf la feuille Excel qui m'intéresse via un lien prédéfini,
  • De générer un mail via Outlook,
  • De rattacher en PJ le PDF préalablement enregistré dans le mail.

Or désormais, j'ai besoin de modifier le process de la manière suivante

  • Enregistrer sous .xlsx l'intégralité des feuilles via un lien prédéfini,
  • De générer un mail via Outlook,
  • De rattacher en PJ l'Excel préalablement enregistré dans le mail.

Voici le code utilisé actuellement :

Sub PROCESS_SEND()

Dim NOM As String

Dim rng As Range
        ' définition de la mise en page de la fiche de demande d'offre
        Set rng = Sheets("BASE TEST").Range("A1:O30")

        Dim fileName, Utilisateur As String
        ' titre du fichier pdf
         NOM = Sheets("DATA SEND").Range("B1")
        ' lieu d'enregistrement + titre document
        fileName = "C:\Users\Desktop\PROJET\DEMANDE\" & NOM & ".pdf"
        ' code complémentaire pour enregistrement du fichier PDF
        rng.ExportAsFixedFormat Type:=xlTypePDF, _
        fileName:=fileName, Quality:=xlQualityHigh, _
        IncludeDocProperties:=False, IgnorePrintAreas:=False

        ' ce qui va faire le lien entre outlook et excel
Dim OutApp As Object
Dim OutMail As Object

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

send = False

' configuration du mail
With OutMail
.To = Sheets("DATA SEND").Range("B2").Value
.CC = Sheets("DATA SEND").Range("B3").Value & ";" & Sheets("setting FDO").Range("G6").Value
.Subject = Sheets("DATA SEND").Range("B4").Value
.Body = Sheets("DATA SEND").Range("B5").Value & vbCrLf _
    & vbCrLf _
    & Sheets("DATA SEND").Range("B6").Value & vbCrLf _
    & vbCrLf _
    & Sheets("DATA SEND").Range("B7").Value & vbCrLf _
    & vbCrLf _
    & Sheets("DATA SEND").Range("B8").Value & vbCrLf _
    & vbCrLf _
    & Sheets("DATA SEND").Range("B9").Value & vbCrLf _

' insertion de la pièce jointe
.Attachments.Add "C:\Users\Desktop\PROJET\DEMANDE\" & NOM & ".pdf"
        If send = True Then
            .send
        Else
            .Display
        End If
    End With

    Set OutMail = Nothing
    Set OutApp = Nothing

End Sub

Merce d'avance pour votre aide !!

Cordialement

Bonjour,

Je débute sur le langage VBA et me forme toute seule, donc difficile encore pour moi de tout comprendre.

Je créé donc ma première Macro, mon but étant d'automatiser des contrôles de conformités entre deux classeurs puis répercuté une colonne d'un classeur sur l'autre à l'aide d'une RechercheV.

J'ai presque tout réussis...

Il me manque un détail c'est que pour ma RechercheV je dois concaténer plusieurs colonnes pour avoir ma valeur unique pour la recherche.

Sauf que sur un classeur, mes valeurs sont stockées sous format texte et l'autre classeur format nombre.

Pour pouvoir extraire ma valeur unique et faire ma RechercheV il faut que mes valeurs soient identiques...

Je cherche donc une solution pour soit convertir ma colonne qui est stockée en texte en format Nombre, soit supprimer tous les 0 précédents le premier chiffre..

J'espère m’être faite comprendre et vous remercie milles fois par avance pour votre aide.

Océane

Bonjour,

Je suis confronté à un problème qui me résiste.

J'ai récupéré des données d'un compte bancaire sous forme de tableau excel. Malheureusement le montant est inscrit en format et donc aucune fonctionnalité de calcul ne fonctionne.

J'ai bien entendu essayé toute une série de chose avant de venir vous trouver

1. le séparateur décimal est sous forme de point, j'ai voulu changer la colonne avec la fonction remplacer => Excel me répond qu'il ne trouve pas de point !

2. j'ai inséré une colonne à droite que j'ai formaté au format monétaire et j'ai recopié la valeur de ma colonne initiale => les montants avec des décimales sont convertis normalement mais ceux sans décimales restent en format texte.

Ces cellules là sont munies d'un petit triangle vert qui me dit qu'il s'agit de cellules au format texte, si je clique sur convertir tout va bien

mais .... j'ai un tableau qui fait 6k lignes !!!

3. j'ai utilisé la fonction cnum => aucun résultat

4. j'ai utilisé la multiplication par un => aucun résultat

et là je me tourne vers vous et vers la communauté.

Je joins en annexe un petit extrait d'un des fichiers (totalement anonymisé)

Merci d'avance pour vos réponses

Domino 63

19test.xlsx (8.76 Ko)
14action2.zip (27.41 Ko)

Bonjour

Bonjour

je souhaite modifier la colonne dates (actuellement en format Texte) en format Date "3 Feb 14"

j'ai utilisé la formule DATEVAL, ça marché pour certaines dates mais pour d'autres dates ça m'affiche #VALEUR!

Je ne sais pas pourquoi

Ci joint l'exemple sur Excel

Merci

J'ai converti un document pdf au format Excel. Tout va bien sauf pour ma colonne de chiffres. Je sais comment la convertir en nombres mais je ne sais pas comment bien écrire son format. Il s'agit d'une liste d'ancienneté. Je n'ai pas besoin d'additionner les lignes. Je veux juste qu'elle se classe correctement. Actuellement, elle se classe par le premier chiffre à gauche... 1J, 10j, 100j, 1A, 10A, 2j, 20j, 200j, 2A, 20A. Voici ce à quoi ressemble ces données de chiffres entremêlés de lettres: 34A‐208.82J ou .05J. Vous me sauveriez la vie! Merci à l'avance!

Bonjour

Je joue régulièrement sur WINAMAX

je souhaiterai faire des statistiques sur mon jeu

le nombre de tournoi que je fais ---- le montant que je joue --- Ect....

pour faire ces statistiques WINAMAX chaque jour envoie des tableaux sur lesquels figurent

tout les tournois, le montant joué, les gains, les pertes ect.....

Par contre il ne totalise aucun résultât

je vous joins un fichier réprésentant les jeux effectué le 10/mai

c'est un copier coller du fichier que m'envoie WINAMAX que j'ai collé sur EXCEL

Impossible de faire l'addition de la colonne G

y a t'il une solution ?

Merci d'avance

Cordialement PIERRE

27etude-pierre-3.xlsx (40.80 Ko)

Bonsoir toutes et tous,

sur mon UsezForm_Famille,j'utilise un TBMontant, qui me permet de choisir un tarif

le total de ce montant s'affiche au format texte dans la colonne Coût (I) du tableau

ce format m'empêche de totaliser les montants de la colonne I dans la feuille Famille

j'ai vu beaucoup de solution sur le forum,mais aucune ne me convient

un peu d'aide m'aiderait beaucoup

Amitiés

Pierrot

46pedicure-cp01.xlsm (131.75 Ko)

Bonjour,

J'ai un petit soucis au niveau de mon format de date, j'aimerais transformer mon format de date en texte/standard tout en gardant une écriture sous la forme : "yyyy-mm-dd"

Sub Traitement()

 Dim derligne As Long
 Dim x As Range 'cellule affichant le coefficient multiplicateur 100
 Dim taille As Range '1ère ligne contenant le symbole % dans les en-tête
 Dim colonne As Integer 'n° de la colonne à modifier
 Dim lignefin As Integer 'n° de la dernière ligne
 Dim ws As Worksheet

 On Error Resume Next 'si la feuille n'existe pas !
 Application.DisplayAlerts = False: Sheets("traitement").Delete: Application.DisplayAlerts = True
 On Error GoTo 0 'plus de gestionnaire d'erreurs
 Worksheets("PO - PB").Copy After:=Worksheets("base donnee") 'création de la feuille
 ActiveSheet.Name = "traitement" 'nom de la feuille'
 Sheets("base donnee").Range("A1:DX1").Copy Sheets("traitement").Range("A1:DX1")
 ActiveSheet.AutoFilterMode = False 'desactiver les filtres'
 ActiveWindow.FreezePanes = False 'désactiver les volets'
 ligne = Range("A" & Rows.Count).End(xlUp).Row
 colomne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 With Sheets("traitement")
      Set x = Range("A" & ligne + 10)
           x.Value = 100

          Set taille = .Range("A2:DX100")
          For Each cell In taille

              If cell.HasFormula = True Then
              cell.EntireColumn.Rows("2:775").Select
              selection.Copy
              selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

              [b]'detecter date et la mettre en texte + bon format
              ElseIf IsDate(cell) Then
              cell.EntireColumn.Rows("2:761").Select
              selection.NumberFormat = "@"
              selection.NumberFormat = "yyyy-mm-dd"[/b]

             ElseIf InStr(1, cell.Text, "€") > 0 Then
              cell.EntireColumn.Rows("2:761").Select
              selection.NumberFormat = "0.00"  'pour 2 décimales
              selection.Copy
              selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

             ElseIf InStr(1, cell.Text, "%") > 0 Then
               colonne = cell.Column
               lignefin = cell.End(xlDown).Row
               x.Copy
               Range(Cells(1, colonne), Cells(lignefin, colonne)).PasteSpecial _
               Paste:=xlPasteValues, Operation:=xlMultiply, SkipBlanks:=True
                   For i = 2 To lignefin
                     If CStr(Cells(i, colonne)) = "Erreur 2015" Then Cells(i, colonne) = ""
                   Next i
               selection.NumberFormat = "0.00"
               selection.Copy
              selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone

             End If
            Next
     End With

  ActiveSheet.UsedRange.Replace What:="/", Replacement:="", LookAt:=xlWhole
  ActiveSheet.UsedRange.Replace What:="#REF!", Replacement:="", LookAt:=xlWhole
  ActiveSheet.UsedRange.Replace What:="#VALEUR!", Replacement:="", LookAt:=xlWhole

         'For Each ws In Worksheets
         'Application.DisplayAlerts = False
         'If ws.Name <> "traitement" Then ws.Delete
         'Next
          'Application.DisplayAlerts = True

'ActiveWorkbook.SaveAs Filename:="Traitement", FileFormat:=xlCSV, CreateBackup:=False, local:=True

 End Sub

Voici ma macro, j'arrive à le transformer mais à la fin, le format de ma cellule est personnalisé, et moi je voudrais texte/standard...

Je vous remercie par avance

Julien

48suivi.xlsx (33.13 Ko)

Bonjour,

Je solicite votre aide pour un probleme qui me semblait assez simple mais sur lequel je rencontre des difficultees.

Lorsque j enregistre mon fichier sans extension (que je supprime le ".xls") quand j'ouvre mon nouveau fichier sous NotePad par exemple, entre chaque colonne je retrouve des tabulations en plus.

Pqr exemple, j'aurai souhaite que si

A1 = M

B1 = E

C1 = R

D1 = C

E1 = I

Je retrouve dans mon nouveau format "MERCI" et non "M E R C I"

Je rencontre egalement un deuxieme probleme. C'est que j'avais place des cellules vides pour remplacer les espaces lors de ma convertion. Seulement pour que cela fonctionne il faut que je place des espaces dans chacunes de mes cellules vides pour qu'il retranscrive un espace dans mon nouveau format.

Exemple

A1 = M

B1 = cellule vide

C1 = E

nouveau format = ME

A1 = M

B1= espace

C1= E

nouveau format = M E (ce que je souhaite obtenir)

Je souhaiterai donc avoir une macro qui me remplace toute les cellules vides comprises entre C3:CX403 par un espace.

J' ai essaye avec la formule IF(A1=0,SPACE) mais ca ne fonctionne pas.

Merci d avance de votre aide et bonne journee a tous

Bonjour.

J'ai un soucie, sur ma feuille 1 j'importe des données de la feuille 2 (que j'importent elles meme d'internet en faisait un copier collé). Mais ces données en feuille 1 sont dans un format qui ne me permet pas d'effectuer des calculs dans les colonnes F G et H de la feuille 1.

Quel manip dois je faire dans ma feuille 1 pour convertir ces données en format "nombre" pour m'en servir pour des calculs par la suite ?

Voici mon fichier avec les deux feuilles en question:

87classeur3.zip (58.02 Ko)

Merci à tous

Bonjour,

Lorsque j'"enregistre sous" un fichier xlsx vers un fichier txt ou csv, une colonne (des codes barre) me donne des caractères bizarres.

Exemple : 814843010375 en xlsx devient 8,14843E+11 en txt et en csv, j'ai changé le format des cellules en nombre sans décimales, en texte mais rien a faire après enregistrement ça remet les cellules en standard en affichant 8,14843E+11.

Merci de votre aide.

Eric

Bonjour,

J'ai copié / collé un certain nombre de données à partir d'un tableau trouvé sur Internet. Le tableau se retrouve très lisible dans Excel. Je voudrais à partir de celui-ci réaliser un certain nombre de calculs.

Les divers nombres existant dans XL sont en format standard, mais je ne peux pas les traiter, l'addition de 2 cellules amenant le résultat "#VALEUR!".

J'ai alors modifié le format des cellules en les passant de "standard" à "nombre", mais sans plus de succès.

J'ai également essayé de multiplier la valeur d'une cellule par 1, mais toujours avec la même erreur.

Que puis-je faire ?

Merci pour votre aide !

15format-cellule.xlsx (10.74 Ko)

Bonjour à tous et toutes...

Encore un petit souci avec mes fichiers....

Le fichier source où sont les données copiées est en ".CSV"....

J'aimerai que ces 3 colonnes qui sont en format standard soient en format nombre... car je dois faire des sommes.... et là c'est impossible

Je n'arrive pas... j'ai même essayé de changer le format de ces colonnes sur une copie du fichier original que j'ai gardé en ".csv", à la réouverture c'était toujours en format standard... j'ai essayé avec CNUM ... j'obtiens le message erreur de valeur...

Si vous pouvez m'aider, j'ai mis un extrait du tableau...

Merci d'avance

Lilly

Bonjour,

Un petit renseignement s'il vous plait !

Est il possible en VB ou autre de convertir une colonne (A par exemple) en format de cellule standard vers une autre colonne (B par exemple) en format heure [hh]:00 s'il vous plait ?

Ci-joint mon fichier.

Merci par avance.

@ toute...

32classeur1.xlsx (9.08 Ko)

Bonjour,

voila ma question

a = 40201
b = Format(a, "dd/mm/YYYY")
c = ...

MsgBox c

quel doit être le code pour c afin que la msg box renvoie la valeur initiale de a ("40201" dans l'exemple).

Merci d'avance pour l'astuce,

L.

Bonjour,

Je dois régulièrment accéder à une base de données qui génére des dates sous forme 1/11/2013 12:00:00 AM

qui est un format personnalisé et je voudrais être en mesure de convertir ces dates rapidement en format de date standard 2013-01-11 (aaaa-mm-jj) qui sera afficher dans le fichier excel de cette façcon 12-mai-01. Donc si vous êtes en mesure de m,aider votre aide serait bien apprécier et je met en pièce jointe un exemple du format des dates que je dois convertir.

Merci

60data-cleaning1.xlsx (125.76 Ko)

Bonjour,

le titre n'est peut être pas clair alors on va détailler direct:

Au départ

1269.33 est le résultat d'un nombre de jour: 272 multiplié par un nombre d'heure par jour: 4.67 qui est un nombre d'heure au format décimal. Au départ je voulais mettre le résultat sous la forme heures:minutes.

Donc

je trouve cà (=(TRONQUE(B43))+((ARRONDI(((B43-TRONQUE(B43))*60);2))/100) avec B43=1269.33 sur le net mais çà ne marche pas toujours. Pour ce cas là c'est bon car on un résultat de 1269 h et 20 min.

Mais

mon collègue de boulot, qui fait sa convertion de son côté, trouve 1247 h et 26 min, en utilisant clic droit sur la cellule/format de cellule/nombre/catégorie:personnalisée/type[h]:mm. Il me dit que la multiplication entraîne un trop grand nombre d'heures à cause de la décimale.

Bref

dans le flou total, je cherche un truc qui marche à tous les coups.

Merci d'avance, si c'est pas clair, dites moi

Au passage si il existe une formule pour aller dans l'autre sens je suis preneur.

Recherches récentes

ouvrir protegeminretroplanninglire fichier fermenumerotation automatiquejouraffichage jourtriplonstriplons vbaafficher messageafficheralertebonlivraisonpdf dossierfournisseursquantites fournisseursfonction moduloposer questionworksheet_change