Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel Arrondi en VBA

Arrondi en VBA

11 réponses
Avatar
Brucat
Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004
Signaler un problème avec ce contenu

10 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Nicolas B.
Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent cependant
être des nombres entiers : ils représentent le numéro de ligne et de colonne
de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004


Avatar
Brucat
Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le message de
news:
Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent cependant
être des nombres entiers : ils représentent le numéro de ligne et de
colonne

de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004


Avatar
Nicolas B.
Les arguments de Cells sont des nombres (pas des lettres en ce qui concerne
les colonnes).
Exemple : sélectionner B5 :
cells(5,2).select

A vue de nez, ceci devrait marcher :

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, 1).Value 'chaine'
L2 = Cells(f, 7).Value 'date'
L3 = Cells(f, 9).Value 'durée'
L = L & Cells(f, 10) & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, 2) Then
Else: Cells(c, 11) = L1
Cells(c, 12) = L2
Cells(c, 15) = L3
Cells(c, 13) = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le
message de news:
Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent
cependant être des nombres entiers : ils représentent le numéro de
ligne et de colonne de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004




Avatar
ChrisV
Bonjour Brucat,

n = Range("A1")
'arrondi au plus proche
MsgBox Application.Round(n, 0)
'arrondi à l'entier supérieur
MsgBox Application.Ceiling(n, 1)


ChrisV


"Brucat" a écrit dans le message de news:
btv2gl$mfr$
Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004




Avatar
FxM
Bonsoir,

Un détournement honteux à tester :
Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") <> Cells(f + 1, "B") Then
Cells(c, "K") = Cells(f, "A").Value 'chaine'
Cells(c, "L") = Cells(f, "G").Value 'date'
Cells(c, "O") = Int(Cells(f, "I").Value + 0.999999999) 'durée'
Cells(c, "M") = Left(L, Len(L) - 1)
c = c + 1
L = ""
End If
Next
End Sub


@+
FxM





Brucat wrote:

Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le message de
news:

Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent cependant
être des nombres entiers : ils représentent le numéro de ligne et de


colonne

de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC



Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






Avatar
Nicolas B.
Oups, oublie mon message. Les réponses de FxM et de ChrisV sont bien mieux !


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Les arguments de Cells sont des nombres (pas des lettres en ce qui
concerne les colonnes).
Exemple : sélectionner B5 :
cells(5,2).select

A vue de nez, ceci devrait marcher :

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, 1).Value 'chaine'
L2 = Cells(f, 7).Value 'date'
L3 = Cells(f, 9).Value 'durée'
L = L & Cells(f, 10) & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, 2) Then
Else: Cells(c, 11) = L1
Cells(c, 12) = L2
Cells(c, 15) = L3
Cells(c, 13) = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub


A+

Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le
message de news:
Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent
cependant être des nombres entiers : ils représentent le numéro de
ligne et de colonne de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






Avatar
Brucat
Ok j'ai toujours le même résultat.
mais pas mon arrondi sup pour la durée c'est-à-dire L3.
j'ai essayé ce que tu m'as indiqué
Cells(c, 15) = Round(Range("L3"))
et du coup j'obtiens une date identique dans toute ma colonne O.

J'ai trouvé un autre moyen via une formule
Úte +arrondi(durée,0)
mais je préfere effectué tous mes calculs avec le même code VBA.

Merci pour toutes ces réponses.


"Nicolas B." a écrit dans le message de
news:%23mI%
Les arguments de Cells sont des nombres (pas des lettres en ce qui
concerne

les colonnes).
Exemple : sélectionner B5 :
cells(5,2).select

A vue de nez, ceci devrait marcher :

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, 1).Value 'chaine'
L2 = Cells(f, 7).Value 'date'
L3 = Cells(f, 9).Value 'durée'
L = L & Cells(f, 10) & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, 2) Then
Else: Cells(c, 11) = L1
Cells(c, 12) = L2
Cells(c, 15) = L3
Cells(c, 13) = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le
message de news:
Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent
cependant être des nombres entiers : ils représentent le numéro de
ligne et de colonne de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004




Avatar
Brucat
Je n'ai toujours pas mon arrondi

Mais je ne desespére pas.

Merci pour cette façon d'écrire mon code.

"FxM" a écrit dans le message de
news:e%
Bonsoir,

Un détournement honteux à tester :
Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") <> Cells(f + 1, "B") Then
Cells(c, "K") = Cells(f, "A").Value 'chaine'
Cells(c, "L") = Cells(f, "G").Value 'date'
Cells(c, "O") = Int(Cells(f, "I").Value + 0.999999999) 'durée'
Cells(c, "M") = Left(L, Len(L) - 1)
c = c + 1
L = ""
End If
Next
End Sub


@+
FxM





Brucat wrote:

Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le message
de


news:

Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent cependant
être des nombres entiers : ils représentent le numéro de ligne et de


colonne

de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC



Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004







---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004




Avatar
Brucat
merci pour cette recherche
"Nicolas B." a écrit dans le message de
news:%
Oups, oublie mon message. Les réponses de FxM et de ChrisV sont bien mieux
!



A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Les arguments de Cells sont des nombres (pas des lettres en ce qui
concerne les colonnes).
Exemple : sélectionner B5 :
cells(5,2).select

A vue de nez, ceci devrait marcher :

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, 1).Value 'chaine'
L2 = Cells(f, 7).Value 'date'
L3 = Cells(f, 9).Value 'durée'
L = L & Cells(f, 10) & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, 2) Then
Else: Cells(c, 11) = L1
Cells(c, 12) = L2
Cells(c, 15) = L3
Cells(c, 13) = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub


A+

Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le
message de news:
Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent
cependant être des nombres entiers : ils représentent le numéro de
ligne et de colonne de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC


Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004






---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004







---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004





Avatar
FxM
Si tu n'obtiens pas ton arrondi, c'est peut être parce que ce n'est
pas un nombre (cellule au format texte) ou pas un nombre valide
(séparateur décimal ./,)ou après une iportation du fichier.

A essayer sur une sauvegarde (et pas l'original !) :
Tapes 1 dans une cellule vide
Sélectionne cette cellule | copier
Sélectionne ta colonne I
Edition | collage special | multiplication

@+
FxM



Brucat wrote:

Je n'ai toujours pas mon arrondi

Mais je ne desespére pas.

Merci pour cette façon d'écrire mon code.

"FxM" a écrit dans le message de
news:e%

Bonsoir,

Un détournement honteux à tester :
Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") <> Cells(f + 1, "B") Then
Cells(c, "K") = Cells(f, "A").Value 'chaine'
Cells(c, "L") = Cells(f, "G").Value 'date'
Cells(c, "O") = Int(Cells(f, "I").Value + 0.999999999) 'durée'
Cells(c, "M") = Left(L, Len(L) - 1)
c = c + 1
L = ""
End If
Next
End Sub


@+
FxM





Brucat wrote:


Merci pour cette réponse mais cela ne fonctionne pas.
donc pour une meilleure aide.
Voici mon code

Sub liste()
c = 1
For f = 1 To [b600].End(3).Row
L1 = Cells(f, "A").Value 'chaine'
L2 = Cells(f, "G").Value 'date'
L3 = Cells(f, "I").Value 'durée'
L = L & Cells(f, "J") & Chr(10) 'liste noms'
If Cells(f, "B") = Cells(f + 1, "B") Then
Else: Cells(c, "K") = L1
Cells(c, "L") = L2
Cells(c, "O") = L3
Cells(c, "M") = Left(L, Len(L) - 1): c = c + 1
L = ""
End If
Next
End Sub

merci pour la réponse
"Nicolas B." a écrit dans le message



de

news:


Salut,

Et comme ça, ça va mieux ?
Cells(Ligne, Colonne) = Round(range("L3"))
Remplace Ligne et Colonne par ce que tu souhaites (ils doivent cependant
être des nombres entiers : ils représentent le numéro de ligne et de


colonne


de la cellule).


A+
--
Nicolas B.

Adresse @adresse.bidon.com invalide,
E-mail : www.cerbermail.com/?gAAILfkPsC




Bonsoir ou Bonjour,

J'ai dans une colonne des chiffres avec 1 décimal.
ex : 14.5
Je désire arrondir au supérieur :
ex 15
Comme je suis en VBA, j'ai utilisé la fonction Round.

Cells(c, "o") = Round(L3)

Je suis stopper avec le message" incompatibilité de type".

Je dois me tromper mais je ne vois pas Où.

Merci pour vos réponses.




---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004





---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004







---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.559 / Virus Database: 351 - Release Date: 07/01/2004








1 2