condition selon format de la dernierre lettre du mot
4 réponses
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)
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
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
"news microsoft" <dominique.lecornu@fdc-28.com> a écrit dans le message de news:
eS%23qbq0SKHA.4780@TK2MSFTNGP05.phx.gbl...
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
"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
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
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)
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
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
je vous remercie ca marche
"news microsoft" <dominique.lecornu@fdc-28.com> a écrit dans le message de
news: eS%23qbq0SKHA.4780@TK2MSFTNGP05.phx.gbl...
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)
"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
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
Chère Isabelle
If Asc(Right(Cells(i, 1))) <= 90 Then MsgBox "Majuscule"
Bz
"isabelle" <i@v> a écrit dans le message de news:
ea%23yT10SKHA.4364@TK2MSFTNGP04.phx.gbl...
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)
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)