Résultats de la recherche

Merci c'est OK !!!

merci.....

J'ai essayé mais le code ne donne pas le résultat voulu. Je joins un fichier test. Merci...

Merci infiniment!!!!

Bonsoir chers tous Jai une plage de donnees "A5:U400" Cette plage contient des donnees formatees type texte.( exemple 9.4 7.8 10 3.8 ........) Je voudrais par macro convertir cette plage au format nombre. Merci....

C'est justement ce que je cherchais !!!

Merci A tous! Laurent78 à résolu mon problème.. J'avais besoin d'une macro pour la circonstance.

Infiniment Merci!!!!

Merci mais dans ma situation j'ai besoin de le faire avec une macro.

Bonjour chers tous Jai une plage de données dans laquelle je voudrais à l'aide d'une macro Arrondir les valeurs décimales à l'entier supérieur. merci et bonne journée.

Merci ça marche

Bonsoir chers tous J'ai une macro nommée "Reinit" Je voudrais fermer mon fichier sans l'enregistrer si une erreur se produit lors de l'exécution de la macro. Jai essayé avec On error goto mais il se trouve que ça marche pas .Le fichier se ferme même si pas erreur. sub reinitier On Error GoTo...

Si mais comment empêcher que cela se répercute sur les autres classeurs qu'on ouvre ensuite ? Merci.

Bonsoir Chers Tous Je voudrais savoir comment utiliser Application.DisplayFullScreen uniquement dans mon classeur. Il se trouve que cette propriété s'applique automatiquement aux autres classeurs qu'on essai d'ouvrir. Merci..

MERCI à tous j'ai adapté la proposition de Staple1600 et j'ai eu ce qui suit qui fonctionne aussi bien. Sub tri() Dim dl As Long dl = Range("B" & Rows.Count).End(xlUp).Row Range("B2:M" & dl).Select With Worksheets("Feuil1") .Sort.SortFields.Clear .Sort.SortFields.Add2...

Mon code renvoie une erreur Sub tri() Application.ScreenUpdating = False Dim Rng As Range Set Rng = Range("B3:M" & [B65000].End(xlUp).Row) Rng.Sort key1:=Range("B3"), order1:=xlAscending, key2:=Range("E3"), order2:=xlAscending, _ key3:=Range("G3"), order3:=xlAscending, key4:=Range("I3")...

Voici le fichier Toutes mes excuses

Une omission. Toutes mes excuses