Comment Transfer des donnée a un emplacement a un
Résolu
luky123654
Messages postés
54
Date d'inscription
Statut
Membre
Dernière intervention
-
luky123654 Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
luky123654 Messages postés 54 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
bonjour je voudrais faire pour trier des donner
je voudrais faire la ligne 11 change tous les mois
ligne 10 elle ne change jamais mais les jours vont a d outre emplacement.
comme le ligne 11 - 0 = T00 9 = T09
ex 1 en E10 vas en E7
ex 3 en G10 vas en F7
ex 4 en H10 vas en AL2
ex 2 enb F10 vas en AK2
la ligne 11 elle elle change tous les moi
que on serais faire une VBA
bien a vous
luky https://mon-partage.fr/f/zCLgQ0nN/
bonjour je voudrais faire pour trier des donner
je voudrais faire la ligne 11 change tous les mois
ligne 10 elle ne change jamais mais les jours vont a d outre emplacement.
comme le ligne 11 - 0 = T00 9 = T09
ex 1 en E10 vas en E7
ex 3 en G10 vas en F7
ex 4 en H10 vas en AL2
ex 2 enb F10 vas en AK2
la ligne 11 elle elle change tous les moi
que on serais faire une VBA
bien a vous
luky https://mon-partage.fr/f/zCLgQ0nN/
A voir également:
- Comment Transfer des donnée a un emplacement a un
- We transfer comment ça marche - Guide
- We transfer en français - Télécharger - Téléchargement & Transfert
- Wii transfer - Télécharger - TV & Vidéo
- Emplacement fichier host - Guide
- Comment trier des données sur excel - Guide
6 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, as-tu commencé à apprendre le VBA?
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
je propose ce code, qui s'occupe uniquement de T09:
peux-tu le tester?
Sub luky9()
'T09 AK2
Dim cible As Range
Dim ncol As Integer
Dim fl As Worksheet
Set fl = Sheets("travail")
Set cible = fl.Cells(2, "ak")
For ncol = 5 To 35
If fl.Cells(11, ncol) = 9 Then
cible.Value = fl.Cells(10, ncol)
Set cible = cible.Offset(0, 1)
End If
Next ncol
End Sub
peux-tu le tester?
j ais vue que si tu enlever les 3 première ligne et tu change les valeur 9 a 10 et tu mais le reste tu c'est tous faire super je teste j ais essayer avec 10 ,9, 8 et sa marche .ces super .
je vais avec le tien si tu a envie de le faire après j ais une autre question merci .tu ma donner la joie
bien à toi
luky
je vais avec le tien si tu a envie de le faire après j ais une autre question merci .tu ma donner la joie
bien à toi
luky
voilà:
Sub lukytout()
Dim fl As Worksheet
Set fl = Sheets("travail")
Call luky1(fl, fl.[e2], 10)
Call luky1(fl, fl.[e3], 8)
Call luky1(fl, fl.[e4], 6)
Call luky1(fl, fl.[e5], 4)
Call luky1(fl, fl.[e6], 2)
Call luky1(fl, fl.[e7], 0)
Call luky1(fl, fl.[ak2], 9)
Call luky1(fl, fl.[ak3], 7)
Call luky1(fl, fl.[ak4], 5)
Call luky1(fl, fl.[ak5], 3)
Call luky1(fl, fl.[ak6], 1)
End Sub
Private Sub luky1(feuille As Worksheet, endroit As Range, valeur As Integer)
Dim ncol As Integer
For ncol = 5 To 35
If feuille.Cells(11, ncol) = valeur Then
endroit.Value = feuille.Cells(10, ncol)
Set endroit = endroit.Offset(0, 1)
End If
Next ncol
End Sub
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
pourquoi le 1 va-t-il en E7?
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
tu croie que si on cest le faire par V B A?