Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel condition selon format de la dernierre lettre du mot

condition selon format de la dernierre lettre du mot

4 réponses
Avatar
news microsoft
Bonjour le forum,
je voudrais une macro dont la condition est que la derniere lettre du mot
soit une minuscule, j ai fait ce modele, pouvez vous m aider a resoudre
aprés le if.
merci

Sub test2()
Dim derlig As Integer

With Sheets("feuil2")
derlig = .Range("A3").End(xlDown).Row
For i = 3 To derlig
If Cells(i, 1) se termine par une minuscule Then
.Range("A" & i).Copy .Range("B" & i)

End If

Next i
End With

End Sub
Signaler un problème avec ce contenu

4 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
Avatar
Caetera
"news microsoft" a écrit dans le message de news:
eS%
Bonjour le forum,
je voudrais une macro dont la condition est que la derniere lettre du mot soit
une minuscule, j ai fait ce modele, pouvez vous m aider a resoudre aprés le
if.



*************

For Each c In Range("A3", [A3].End(xlDown))
If Mid(c, Len(c), 1) = LCase(Mid(c, Len(c), 1)) Then
...ton instruction
end if
Next

Etc
Avatar
isabelle
bonjour,

If Asc(Cells(i, 1)) <= 90 Then MsgBox "Majuscule"

isabelle

news microsoft a écrit :
Bonjour le forum,
je voudrais une macro dont la condition est que la derniere lettre du mot
soit une minuscule, j ai fait ce modele, pouvez vous m aider a resoudre
aprés le if.
merci

Sub test2()
Dim derlig As Integer

With Sheets("feuil2")
derlig = .Range("A3").End(xlDown).Row
For i = 3 To derlig
If Cells(i, 1) se termine par une minuscule Then
.Range("A" & i).Copy .Range("B" & i)

End If

Next i
End With

End Sub





Avatar
news microsoft
je vous remercie ca marche

"news microsoft" a écrit dans le message de
news: eS%
Bonjour le forum,
je voudrais une macro dont la condition est que la derniere lettre du mot
soit une minuscule, j ai fait ce modele, pouvez vous m aider a resoudre
aprés le if.
merci

Sub test2()
Dim derlig As Integer

With Sheets("feuil2")
derlig = .Range("A3").End(xlDown).Row
For i = 3 To derlig
If Cells(i, 1) se termine par une minuscule Then
.Range("A" & i).Copy .Range("B" & i)

End If

Next i
End With

End Sub




Avatar
Fredo P.
Chère Isabelle
If Asc(Right(Cells(i, 1))) <= 90 Then MsgBox "Majuscule"
Bz
"isabelle" a écrit dans le message de news:
ea%
bonjour,

If Asc(Cells(i, 1)) <= 90 Then MsgBox "Majuscule"

isabelle

news microsoft a écrit :
Bonjour le forum,
je voudrais une macro dont la condition est que la derniere lettre du mot
soit une minuscule, j ai fait ce modele, pouvez vous m aider a resoudre
aprés le if.
merci

Sub test2()
Dim derlig As Integer

With Sheets("feuil2")
derlig = .Range("A3").End(xlDown).Row
For i = 3 To derlig
If Cells(i, 1) se termine par une minuscule Then
.Range("A" & i).Copy .Range("B" & i)

End If

Next i
End With

End Sub