Copier valeur d'une colonne tant que ...
van_van
Messages postés
63
Statut
Membre
-
Utilisateur anonyme -
Utilisateur anonyme -
Bonjour,
J'ai vrm besoin de votre aide voila j'ai posté précedemment une question mais j'ai l'impression que personne ne sait brm comment faire donc j'ai reussit a faire quelque chose d'autre. Maintenant j'aimerais une autre chose.
dans la colonne J , cellule A1 j'ai BUREAU:00235 et apres toujours dans la colonne J de la cellule A2 à A 45 (par exemple, ca ne sera pas toujours 45) je n'ai plus rien , et apres en A 46 j'ai BUREAU:00254 et ainsi de suite et ce que je voudrais, c'est que des que le programme renconte un numero de bureau il le copie sur la colonne jusqu'a temps qu'il trouve un autre numero de bureau et qu'il fasse pareil
Merci d'avance
J'ai vrm besoin de votre aide voila j'ai posté précedemment une question mais j'ai l'impression que personne ne sait brm comment faire donc j'ai reussit a faire quelque chose d'autre. Maintenant j'aimerais une autre chose.
dans la colonne J , cellule A1 j'ai BUREAU:00235 et apres toujours dans la colonne J de la cellule A2 à A 45 (par exemple, ca ne sera pas toujours 45) je n'ai plus rien , et apres en A 46 j'ai BUREAU:00254 et ainsi de suite et ce que je voudrais, c'est que des que le programme renconte un numero de bureau il le copie sur la colonne jusqu'a temps qu'il trouve un autre numero de bureau et qu'il fasse pareil
Merci d'avance
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
- Super copier - Télécharger - Gestion de fichiers
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. 😊