Comment garder le 1er caractére chaine alphanumerique excel vba
Résolu/Fermé
chnoir1
Messages postés
16
Date d'inscription
dimanche 5 janvier 2014
Statut
Membre
Dernière intervention
21 février 2015
-
21 juin 2014 à 19:18
chnoir1 Messages postés 16 Date d'inscription dimanche 5 janvier 2014 Statut Membre Dernière intervention 21 février 2015 - 23 juin 2014 à 18:34
chnoir1 Messages postés 16 Date d'inscription dimanche 5 janvier 2014 Statut Membre Dernière intervention 21 février 2015 - 23 juin 2014 à 18:34
A voir également:
- Comment garder le 1er caractére chaine alphanumerique excel vba
- Caractère ascii - Guide
- Liste déroulante excel - Guide
- Caractere speciaux - Guide
- Caractère spéciaux - Guide
- Formule excel - Guide
4 réponses
chnoir1
Messages postés
16
Date d'inscription
dimanche 5 janvier 2014
Statut
Membre
Dernière intervention
21 février 2015
21 juin 2014 à 20:12
21 juin 2014 à 20:12
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
chnoir1
Messages postés
16
Date d'inscription
dimanche 5 janvier 2014
Statut
Membre
Dernière intervention
21 février 2015
23 juin 2014 à 18:34
23 juin 2014 à 18:34
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
chnoir1
Messages postés
16
Date d'inscription
dimanche 5 janvier 2014
Statut
Membre
Dernière intervention
21 février 2015
21 juin 2014 à 21:59
21 juin 2014 à 21:59
Super cela marche merci beaucoup, je vais maintenant essayé de comprendre.
Bonne soirée.
Christian
Bonne soirée.
Christian