Résultats de la recherche

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...

Re : Format date change dans le formulaire Bonjour. Une autre proposition : Sub Transferer_du_Formulaire_Vers_Cellule() Dim source As Control Dim dest As Range Set source = Me.Controls("Textbox1") Set dest = Worksheets("Feuil1").Cells(2, 5) Call...

Re : transformer un nombre avec des point en format monétaire via une macro Si tu obtiens cela en manuel, c'est que les données sont déjà du type Double, parce que le fait de changer le format de la cellule ne modifie pas le type des données. Il faudrait que tu envoies un classeur avec un...

Re : transformer un nombre avec des point en format monétaire via une macro Bonjour à tous. Essaie : Columns("I:I").Select Selection.Style = "Currency" 'Supprimer le séparateur de milliers Selection.Replace What:=".", Replacement:="", LookAt:=xlPart, _...

Re : date USF > date Excel : inversé Bonjour Efgé C'est vrai que .FormulaLocal semble magique car il ne provoque jamais d'inversion jour/mois, contrairement à .Value qui n'empêche pas l'inversion. Probablement parce que, contrairement à .Value, .FormulaLocal indique à VBA que la date...

Re : date USF > date Excel : inversé Bonjour. À partir de VBA Règle pour éviter l'inversion jour/mois dans les cellules: - ne pas envoyer une date de type String dans une cellule dont le format de nombre n'est pas Texte. - ne pas envoyer une date de type Date dans une cellule dont le...