A voir également:
- Copier valeur d'une colonne tant que ...
- Déplacer une colonne excel - Guide
- Trier une colonne excel - Guide
- Comment copier une vidéo youtube - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
2 réponses
Bonjour,
Ta question concerne quoi au juste :
- La récupération du numéro présent dans la chaine de caractères
- ou la copie ?
pour la copie... tu trouveras sans mal de très nombreux exemples sur le net....
Pöur ce qui est d'isoler le chiffre ... là .. tu pourrais faire un SPLIT de la chaine de caractères.
par exemple :
Ta question concerne quoi au juste :
- La récupération du numéro présent dans la chaine de caractères
- ou la copie ?
pour la copie... tu trouveras sans mal de très nombreux exemples sur le net....
Pöur ce qui est d'isoler le chiffre ... là .. tu pourrais faire un SPLIT de la chaine de caractères.
par exemple :
Sub test()
Dim vaCel As String
Dim nombre As Long
Dim arrTmp
valCel = Sheets(1).Cells(1, 1).Value
arrTmp = Split(valCel, ":")
If UBound(arrTmp) = 1 Then
nombre = arrTmp(1)
Debug.Print "nombre = " & nombre
End If
End Sub
Bonjour,
mais il y a peut-^tre +simple
Michel
=SI(ESTERREUR(CHERCHE(":";A1));"";DROITE(A1;(NBCAR(A1)-CHERCHE(":";A1))*1))
à tirer vers le bas
mais il y a peut-^tre +simple
Michel
Bonjour van_van,
Je viens de compléter ma réponse, et j'espère
qu'elle résoudra ton problème :
Mon message 9
Cordialement. 😊
Je viens de compléter ma réponse, et j'espère
qu'elle résoudra ton problème :
Mon message 9
Cordialement. 😊
j1 bureau:0021
j2 vide
j3 vide
j4 bureau:0027
j5 vide
j6 vide
j7 bureau: 0027
j8 vide
j9 bureau:0145
j10vide
Apres traitement
j1 bureau:0021
j2 bureau:0021
j3 bureau:0021
j4 bureau:0027
j5 bureau:0027
j6 bureau:0027
j7 bureau: 0027
j8 bureau:0027
j9 bureau:0145
j10bureau:0145
Donc juste une boulce toute bête....
un truc du genre :
Sub boucle() Dim Colonne As Integer Dim sht As Worksheet Dim LastRow As Long Dim valCel As String Dim valToCopy As String Set sht = ThisWorkbook.Sheets(1) ' Feuilles ou faire l'action 'Dernière ligne utilisée de la feuille LastRow = sht.Cells(sht.Rows.Count, "A").End(xlUp).Row Colonne = 1 ' A changer par ton numéro de colonne 'Boucle sur tes cellules For l = 1 To LastRow + 1 valCel = sht.Cells(l, Colonne).Value If valCel <> "" Then valToCopy = valCel Else sht.Cells(l, Colonne).Value = valToCopy End If Next End Subjuste un petit probleme le dernier bureau
a la ligne 3000
ex de ce qui se passe
j3000 bureau 00271
j30001 vide
j3002 vide
Pour que le travail se fasse en colonne J, tu as dû remplacer en ligne 13
« colonne = 1 » par « colonne = 10 ».
Pour régler le problème dont tu parles, essaye en remplaçant en ligne 11
"A" par "J" (mais peut-être l'as-tu déjà fait ?) :
LastRow = sht.Cells(sht.Rows.Count, "J").End(xlUp).Row
Normalement, ça devrait marcher ; si ça ne règle pas ton problème,
n'hésites pas à me le dire et on essayera de trouver une solution.
Cordialement. 😊