Comment garder le 1er caractére chaine alphanumerique excel vba
Résolu
chnoir1
Messages postés
16
Date d'inscription
Statut
Membre
Dernière intervention
-
chnoir1 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
chnoir1 Messages postés 16 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis toujours aussi nouveau en VBA
je voudrai conserver la premiere lettre ou le 3ème caracteres d'une chaine alphanumerique
exemple:
20B10268p569 => B
20c450j654 => C
20M4569klm3 => M
En vous remerciant d'avance.
Christian
Je suis toujours aussi nouveau en VBA
je voudrai conserver la premiere lettre ou le 3ème caracteres d'une chaine alphanumerique
exemple:
20B10268p569 => B
20c450j654 => C
20M4569klm3 => M
En vous remerciant d'avance.
Christian
A voir également:
- Comment garder le 1er caractére chaine alphanumerique excel vba
- Caractère ascii - Guide
- Caractère spéciaux - Guide
- Liste déroulante excel - Guide
- Caractere speciaux - Guide
- Comment garder le 0 devant les chiffres sur excel - Guide
4 réponses
Je suis vraiment nouveau de nouveau en VBA je vous remercie pour vos information mais en pratique je formule comment.
Sub EssaisLettre()
Dim Par3 As Integer
For Par3 = Cells.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
If Range("C" & Par3).Value <> "" And Range("A" & Par3).Value = "" Then
Range("J" & Par3).Value = (quel code dois-je noté => les données sont dans la colonne "B")
End If
Next Par3
End Sub
En vous remerciant d'avance.
Christian
Sub EssaisLettre()
Dim Par3 As Integer
For Par3 = Cells.SpecialCells(xlCellTypeLastCell).Row To 6 Step -1
If Range("C" & Par3).Value <> "" And Range("A" & Par3).Value = "" Then
Range("J" & Par3).Value = (quel code dois-je noté => les données sont dans la colonne "B")
End If
Next Par3
End Sub
En vous remerciant d'avance.
Christian
re
sans model ses pas facile
je pense a un truc comme ca
Sub EssaisLettre()
Dim Par3, Dlig, Flig As Integer
Dlig = 6
Flig = Cells.SpecialCells(xlCellTypeLastCell).Row
For Par3 = Flig To Dlig Step -1
If Range("C" & Par3).Value <> "" And Range("A" & Par3).Value = "" Then
Range("J" & Par3).Value = Mid(Range("B" & Par3).Value, 3, 1)
End If
Next Par3
End Sub
A+
Maurice
sans model ses pas facile
je pense a un truc comme ca
Sub EssaisLettre()
Dim Par3, Dlig, Flig As Integer
Dlig = 6
Flig = Cells.SpecialCells(xlCellTypeLastCell).Row
For Par3 = Flig To Dlig Step -1
If Range("C" & Par3).Value <> "" And Range("A" & Par3).Value = "" Then
Range("J" & Par3).Value = Mid(Range("B" & Par3).Value, 3, 1)
End If
Next Par3
End Sub
A+
Maurice
Maurice,
Merci pour ton aide mais pourrais-tu encore m'aidé.
Sub EssaisLettre()
Dim Par3, Dlig, Flig As Integer
Dlig = 6
Flig = Cells.SpecialCells(xlCellTypeLastCell).Row
For Par3 = Flig To Dlig Step -1
If Range("C" & Par3).Value <> "" And Range("A" & Par3).Value = "" Then
Range("J" & Par3).Value = Mid(Range("B" & Par3).Value, 3, 1)
End If
Next Par3
End Sub
Avec le même type de code je voudrai garder les 15 premiers caractères du contenu des cellules.
en te remerciant d'avance.
Bien à toi.
Christian
Merci pour ton aide mais pourrais-tu encore m'aidé.
Sub EssaisLettre()
Dim Par3, Dlig, Flig As Integer
Dlig = 6
Flig = Cells.SpecialCells(xlCellTypeLastCell).Row
For Par3 = Flig To Dlig Step -1
If Range("C" & Par3).Value <> "" And Range("A" & Par3).Value = "" Then
Range("J" & Par3).Value = Mid(Range("B" & Par3).Value, 3, 1)
End If
Next Par3
End Sub
Avec le même type de code je voudrai garder les 15 premiers caractères du contenu des cellules.
en te remerciant d'avance.
Bien à toi.
Christian