la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est
tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
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
Fredo \(67\)
Salut j'avais posé cette question ici et voici une macro qui m'avait été donnée alors :
Sub Premiere_lettre_maj() Dim cell As Range For Each cell In Selection.Cells cell.Value = UCase(Left(cell, 1)) & LCase(Mid(cell, 2, 9 ^ 9)) Next End Sub
Cela devrait te convenir..
"PhilippeD1" a écrit dans le message de news:
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
Salut
j'avais posé cette question ici et voici une macro qui m'avait été donnée
alors :
Sub Premiere_lettre_maj()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value = UCase(Left(cell, 1)) & LCase(Mid(cell, 2, 9 ^ 9))
Next
End Sub
Cela devrait te convenir..
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message
de news:F7B23089-665E-4EBB-95AE-955E068717F0@microsoft.com...
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est
tres bien, cependant je souhaiterais pouvoir determiner des cellules et
non
Salut j'avais posé cette question ici et voici une macro qui m'avait été donnée alors :
Sub Premiere_lettre_maj() Dim cell As Range For Each cell In Selection.Cells cell.Value = UCase(Left(cell, 1)) & LCase(Mid(cell, 2, 9 ^ 9)) Next End Sub
Cela devrait te convenir..
"PhilippeD1" a écrit dans le message de news:
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
michdenis
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier ! With Worksheets("Feuil2") Set Rg = .Range("A4:G10,H5:L8") End With
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier !
With Worksheets("Feuil2")
Set Rg = .Range("A4:G10,H5:L8")
End With
Salutations!
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message de
news:F7B23089-665E-4EBB-95AE-955E068717F0@microsoft.com...
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est
tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier ! With Worksheets("Feuil2") Set Rg = .Range("A4:G10,H5:L8") End With
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
PhilippeD1
Bonjour Michdenis,
j'ai bien effectue le remplacement et cela ne fonctionne pas :
Sub MettreEnMinuscule() Dim A As XlSpecialCellsValue A = xlTextValues Application.ScreenUpdating = False Dim Rg As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .Range("A1") If Err <> 0 Then Err = 0 If Rg Is Nothing Then Exit Sub If Not Rg Is Nothing Then For Each C In Rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1)<> "+" Then Application.EnableEvents = False C.Value = UCase(Left(C, 1)) & LCase(Right(C,Len(C) - 1)) End If Application.EnableEvents = True End If Application.EnableEvents = True End If Next End If Set Rg = Nothing End With
Cependant, je me suis peut etre plante Merci de votre aide A +
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier ! With Worksheets("Feuil2") Set Rg = .Range("A4:G10,H5:L8") End With
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
Bonjour Michdenis,
j'ai bien effectue le remplacement et cela ne fonctionne pas :
Sub MettreEnMinuscule()
Dim A As XlSpecialCellsValue
A = xlTextValues
Application.ScreenUpdating = False
Dim Rg As Range
On Error Resume Next
With Worksheets("Feuil1")
Set Rg = .Range("A1")
If Err <> 0 Then Err = 0
If Rg Is Nothing Then Exit Sub
If Not Rg Is Nothing Then
For Each C In Rg
If Not IsNumeric(C) Then
If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1)<> "+" Then
Application.EnableEvents = False
C.Value = UCase(Left(C, 1)) & LCase(Right(C,Len(C) - 1))
End If
Application.EnableEvents = True
End If
Application.EnableEvents = True
End If
Next
End If
Set Rg = Nothing
End With
Cependant, je me suis peut etre plante
Merci de votre aide
A +
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier !
With Worksheets("Feuil2")
Set Rg = .Range("A4:G10,H5:L8")
End With
Salutations!
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message de
news:F7B23089-665E-4EBB-95AE-955E068717F0@microsoft.com...
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est
tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
j'ai bien effectue le remplacement et cela ne fonctionne pas :
Sub MettreEnMinuscule() Dim A As XlSpecialCellsValue A = xlTextValues Application.ScreenUpdating = False Dim Rg As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .Range("A1") If Err <> 0 Then Err = 0 If Rg Is Nothing Then Exit Sub If Not Rg Is Nothing Then For Each C In Rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1)<> "+" Then Application.EnableEvents = False C.Value = UCase(Left(C, 1)) & LCase(Right(C,Len(C) - 1)) End If Application.EnableEvents = True End If Application.EnableEvents = True End If Next End If Set Rg = Nothing End With
Cependant, je me suis peut etre plante Merci de votre aide A +
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier ! With Worksheets("Feuil2") Set Rg = .Range("A4:G10,H5:L8") End With
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
PhilippeD1
Salut Fredo,
ta macro fonctionne bien cependant je souhaiterais l'appliquer toujours aux memes cellules. Comment integrer les references des cellules dans cette macro. Merci d'avance A +
Salut j'avais posé cette question ici et voici une macro qui m'avait été donnée alors :
Sub Premiere_lettre_maj() Dim cell As Range For Each cell In Selection.Cells cell.Value = UCase(Left(cell, 1)) & LCase(Mid(cell, 2, 9 ^ 9)) Next End Sub
Cela devrait te convenir..
"PhilippeD1" a écrit dans le message de news:
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
Salut Fredo,
ta macro fonctionne bien cependant je souhaiterais l'appliquer toujours aux
memes cellules.
Comment integrer les references des cellules dans cette macro.
Merci d'avance
A +
Salut
j'avais posé cette question ici et voici une macro qui m'avait été donnée
alors :
Sub Premiere_lettre_maj()
Dim cell As Range
For Each cell In Selection.Cells
cell.Value = UCase(Left(cell, 1)) & LCase(Mid(cell, 2, 9 ^ 9))
Next
End Sub
Cela devrait te convenir..
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message
de news:F7B23089-665E-4EBB-95AE-955E068717F0@microsoft.com...
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est
tres bien, cependant je souhaiterais pouvoir determiner des cellules et
non
ta macro fonctionne bien cependant je souhaiterais l'appliquer toujours aux memes cellules. Comment integrer les references des cellules dans cette macro. Merci d'avance A +
Salut j'avais posé cette question ici et voici une macro qui m'avait été donnée alors :
Sub Premiere_lettre_maj() Dim cell As Range For Each cell In Selection.Cells cell.Value = UCase(Left(cell, 1)) & LCase(Mid(cell, 2, 9 ^ 9)) Next End Sub
Cela devrait te convenir..
"PhilippeD1" a écrit dans le message de news:
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
michdenis
Bonjour Philippe,
'------------------------------ Sub MettreEnMinuscule() Dim Rg As Range, C As Range
With Worksheets("Feuil1") Set Rg = .Range("A1") End With
If Rg Is Nothing Then Exit Sub
Application.EnableEvents = False
'La ligne suivante n'est pas nécessaire, 'si ta plage est petite ... Application.ScreenUpdating = False For Each C In Rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1) <> "+" Then C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1)) End If End If Next Application.EnableEvents = True
Set Rg = Nothing: Set C = Nothing
End Sub '----------------------------------
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour Michdenis,
j'ai bien effectue le remplacement et cela ne fonctionne pas :
Sub MettreEnMinuscule() Dim A As XlSpecialCellsValue A = xlTextValues Application.ScreenUpdating = False Dim Rg As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .Range("A1") If Err <> 0 Then Err = 0 If Rg Is Nothing Then Exit Sub If Not Rg Is Nothing Then For Each C In Rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1)<> "+" Then Application.EnableEvents = False C.Value = UCase(Left(C, 1)) & LCase(Right(C,Len(C) - 1)) End If Application.EnableEvents = True End If Application.EnableEvents = True End If Next End If Set Rg = Nothing End With
Cependant, je me suis peut etre plante Merci de votre aide A +
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier ! With Worksheets("Feuil2") Set Rg = .Range("A4:G10,H5:L8") End With
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non toute la feuille.
Pouvez vous m'aider. Merci d'avance. A +
Bonjour Philippe,
'------------------------------
Sub MettreEnMinuscule()
Dim Rg As Range, C As Range
With Worksheets("Feuil1")
Set Rg = .Range("A1")
End With
If Rg Is Nothing Then Exit Sub
Application.EnableEvents = False
'La ligne suivante n'est pas nécessaire,
'si ta plage est petite ...
Application.ScreenUpdating = False
For Each C In Rg
If Not IsNumeric(C) Then
If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1) <> "+" Then
C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1))
End If
End If
Next
Application.EnableEvents = True
Set Rg = Nothing: Set C = Nothing
End Sub
'----------------------------------
Salutations!
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message de
news:4D45756E-7C4E-40C7-9E66-DAC8B0C35B66@microsoft.com...
Bonjour Michdenis,
j'ai bien effectue le remplacement et cela ne fonctionne pas :
Sub MettreEnMinuscule()
Dim A As XlSpecialCellsValue
A = xlTextValues
Application.ScreenUpdating = False
Dim Rg As Range
On Error Resume Next
With Worksheets("Feuil1")
Set Rg = .Range("A1")
If Err <> 0 Then Err = 0
If Rg Is Nothing Then Exit Sub
If Not Rg Is Nothing Then
For Each C In Rg
If Not IsNumeric(C) Then
If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1)<> "+" Then
Application.EnableEvents = False
C.Value = UCase(Left(C, 1)) & LCase(Right(C,Len(C) - 1))
End If
Application.EnableEvents = True
End If
Application.EnableEvents = True
End If
Next
End If
Set Rg = Nothing
End With
Cependant, je me suis peut etre plante
Merci de votre aide
A +
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier !
With Worksheets("Feuil2")
Set Rg = .Range("A4:G10,H5:L8")
End With
Salutations!
"PhilippeD1" <PhilippeD1@discussions.microsoft.com> a écrit dans le message de
news:F7B23089-665E-4EBB-95AE-955E068717F0@microsoft.com...
Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est
tres bien, cependant je souhaiterais pouvoir determiner des cellules et non
toute la feuille.
'------------------------------ Sub MettreEnMinuscule() Dim Rg As Range, C As Range
With Worksheets("Feuil1") Set Rg = .Range("A1") End With
If Rg Is Nothing Then Exit Sub
Application.EnableEvents = False
'La ligne suivante n'est pas nécessaire, 'si ta plage est petite ... Application.ScreenUpdating = False For Each C In Rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1) <> "+" Then C.Value = UCase(Left(C, 1)) & LCase(Right(C, Len(C) - 1)) End If End If Next Application.EnableEvents = True
Set Rg = Nothing: Set C = Nothing
End Sub '----------------------------------
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour Michdenis,
j'ai bien effectue le remplacement et cela ne fonctionne pas :
Sub MettreEnMinuscule() Dim A As XlSpecialCellsValue A = xlTextValues Application.ScreenUpdating = False Dim Rg As Range On Error Resume Next With Worksheets("Feuil1") Set Rg = .Range("A1") If Err <> 0 Then Err = 0 If Rg Is Nothing Then Exit Sub If Not Rg Is Nothing Then For Each C In Rg If Not IsNumeric(C) Then If Left(C.Formula, 1) <> "=" And Left(C.Formula, 1)<> "+" Then Application.EnableEvents = False C.Value = UCase(Left(C, 1)) & LCase(Right(C,Len(C) - 1)) End If Application.EnableEvents = True End If Application.EnableEvents = True End If Next End If Set Rg = Nothing End With
Cependant, je me suis peut etre plante Merci de votre aide A +
Bonjour Philippe,
Pour affecter la macro à une plage particulière du feuille de calcul déterminée,
Remplace ceci dans la macro :
Set Rg = ActiveSheet.UsedRange.SpecialCells(2, A)
Par
'Évidemment, à toi d'adapter la plage que tu désires signifier ! With Worksheets("Feuil2") Set Rg = .Range("A4:G10,H5:L8") End With
Salutations!
"PhilippeD1" a écrit dans le message de news: Bonjour,
la macro de michdenis concernant l'article de magdeleine, du 29/09/04, est tres bien, cependant je souhaiterais pouvoir determiner des cellules et non toute la feuille.
