Contenu récent par Docmarti

Le probleme est dans cette ligne. ActiveWorkbook.SaveAs ListDir & "タグリスト" & toujitsu & "." & i & ".csv", FileFormat:=xlCSV, AddToMru:=False Dans le code ci-dessus, il manque le parametre Local:=True. Tu dois toujours mettre le parametre Local:=True sauf bien sur si tu desires obtenir des...

fanch55 C'est facile de changer de languie. 1. Bouton de droite sur l'icone Demarrer de Windows. 2. Parametres 3. Heure et langue 4. Mise en forme de la date, de l'heure et region 5. Parametres de date, d'heure et regionaux supplementaires 6. Region 7. Dans la section Format: de la fenetre...

Bonjour fanch55. Sii tu choisis Japonais (Japon) dans les parametres regionaux et linguisitiques de Windows, il semble que le separateur de liste soit la virgule quand le parametre Local:=True

Bonjour g.milano, le Forum. Dans la ligne de code suivante tu as 3 erreurs. ActiveWorkbook.Columns("D").NumberFormatLocal = "￥#,##0" 1. Remplace ActiveWorkbook.Columns("D") par ActiveSheet.Columns("D") 2. Utilise NumberFormat au lieu de NumberFormatLocal 3. Remplace ￥#,##0 par $#,##0 ou par...

Merci du retour.

Bonjour Lorenzini, le forum. Voici un petit programme VBA qui fait seulement cela. Il est base sur un principe tres simple, soit demarrer avec ce texte __/__/____ dans le Textbox et remplacer l'un apres l'autre dans le Textbox les 8 caracteres _ (caractere de soulignement).

Bonjour. Voici une suggestion en VBA pour recuperer vos dates inversees. Sub Recuperer_Date_inversee() dern = Cells(Rows.Count, 1).End(xlUp).Row Set r = Range(Cells(3, 1), Cells(dern, 1)) T = r.Value 'On met dans T les dates inversees et les dates non inversees r.NumberFormat = "@"...

Bonsoir. Est-ce qu'une fonction personnalisee te conviendrait? =ARRONDI(soustr(A1;B1);1) Function soustr(c As Range, c2 As Range) As Variant soustr = CDec(c.Value) - CDec(c2.Value) End Function

Re : convertir texte en nombre Bonjour. Une approche avec FormulaLocal : Sub tt() For Each ws In ActiveWorkbook.Worksheets With ws.Range("F2:G300") t = .Value .NumberFormat = "" .FormulaLocal = t End With Next End Sub Cordialement Docmarti

Re : Remplacer les points d'une colonne par des virgules Bonjour zendb, le forum, Sub ReecrireValueDansFormatStandard() Set r = Range("A1:M9") t = r.Cells.Value Range("A11").Resize(UBound(t, 1), UBound(t, 2)).NumberFormat = "" Range("A11").Resize(UBound(t, 1), UBound(t, 2)).Value =...

Re : conversion d'un nombre scientifique en un nombre standard Bonjour. Sub ObtenirLeFormatNumeriqueStandard() Dim t(4) t(1) = "1,234E+001" t(2) = "1,234E+1" t(3) = "1,234E+0" t(4) = "1,234" For i = 1 To 4 Set c = Cells(i, 1) c.NumberFormat = "@" c.Value = t(i) Next...

Re : Mettre date via VBA Bonjour. Now est aussi sujet à être interprété comme étant une date américaine par VBA. Sub tt() d = Now Set c = Cells(1, 1) Columns(c.Column).NumberFormat = "General" c.Value = d c.Offset(1).Value = CStr(d) Set c = Cells(1, 3)...

Re : VBA-Statistique-transfert-liste Besoin d'expert VBA svp! Bonjour à tous. Le format de date jj/mm/aaaa (03/01/2016) (format de date courte de Français-France) n'existe pas dans les paramètres régionaux et linguistiques Français-Canada. Dans les paramètres régionaux et linguistiques...

Re : VBA - importer des données depuis des fichiers Textes Salut R@chid, Tous Je complète ma suggestion : Sub Meteo() duree = Timer Dim wbf As Worksheet Set dest = ThisWorkbook.Worksheets("Feuil1") dest.Cells.Clear chemin = "C:\Users\client\Downloads\Station_Agadir\"...

Re : VBA - importer des données depuis des fichiers Textes Bonjour. Pour convertir les nombres String ayant le point comme séparateur décimal : Sub Test() fich = "Repertoire...\Tmax-GCM-Agadir-A2.txt" Workbooks.OpenText Filename:= _ fich, Origin:= _ xlMSDOS...