Organiser séries de valeurs
Fermé
Keyran
-
29 mai 2018 à 13:52
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 4 juin 2018 à 21:09
ccm81 Messages postés 10853 Date d'inscription lundi 18 octobre 2010 Statut Membre Dernière intervention 24 avril 2024 - 4 juin 2018 à 21:09
A voir également:
- Organiser séries de valeurs
- Consommation xbox series x - Guide
- Canal+ series free - Guide
- Retrouver ordinateur volé avec numéro de série - Guide
- Excel liste de valeurs - Guide
- Epson 24 pin series - Forum Imprimante
7 réponses
rEVOLV3r
Messages postés
223
Date d'inscription
jeudi 12 août 2010
Statut
Membre
Dernière intervention
21 septembre 2022
28
29 mai 2018 à 15:53
29 mai 2018 à 15:53
Hello,
Il serait plus simple de créer la macro si nous avions un échantillon de ton fichier.
Cependant si tu souhaites développer la procédure par toi-même (ça peut être un bon apprentissage), j'utiliserais la fonction find avec du findnext qui est très rapide.
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
If c is Nothing Then
GoTo DoneFinding
End If
Loop While c.Address <> firstAddress
End If
DoneFinding:
End With
En résumé, pour chaque x différents tu viens chercher ses valeurs et tu les concatènes dans un tableau d'une autre page. Le find est extrêmement rapide, cela devrait prendre 30-1min maximum à exécuter.
Il serait plus simple de créer la macro si nous avions un échantillon de ton fichier.
Cependant si tu souhaites développer la procédure par toi-même (ça peut être un bon apprentissage), j'utiliserais la fonction find avec du findnext qui est très rapide.
With Worksheets(1).Range("a1:a500")
Set c = .Find(2, lookin:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Value = 5
Set c = .FindNext(c)
If c is Nothing Then
GoTo DoneFinding
End If
Loop While c.Address <> firstAddress
End If
DoneFinding:
End With
En résumé, pour chaque x différents tu viens chercher ses valeurs et tu les concatènes dans un tableau d'une autre page. Le find est extrêmement rapide, cela devrait prendre 30-1min maximum à exécuter.
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
29 mai 2018 à 15:56
29 mai 2018 à 15:56
Bonjour
Pas très clair !
Peux tu envoyer un bout de ton fichier sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".
Cdlmnt
Pas très clair !
Peux tu envoyer un bout de ton fichier sur cjoint.com et joindre le lien obtenu à ton prochain message. N'oublies pas d'y ajouter des explications et des exemples de résultat attendu
1) Tu vas dans https://www.cjoint.com/
2) Tu cliques sur [Parcourir] pour sélectionner ton fichier
3) Tu descends en bas de la page pour cliquer sur [Créer le lien Cjoint]
4) Au bout de quelques secondes la deuxième page s'affiche, avec le lien
en bleu souligné ; tu le sélectionnes et tu fais "Copier"
5) Tu reviens dans ta discussion sur CCM, et dans ton message de réponse tu fais "Coller".
Cdlmnt
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
29 mai 2018 à 18:20
29 mai 2018 à 18:20
A tester
https://www.cjoint.com/c/HEDqusS7mdB
Cdlmnt
https://www.cjoint.com/c/HEDqusS7mdB
Cdlmnt
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié le 29 mai 2018 à 20:08
Modifié le 29 mai 2018 à 20:08
lien modifié
https://www.cjoint.com/c/HEDshUxZNMB
https://www.cjoint.com/c/HEDshUxZNMB
Ca marche tres bien merci c'est top !
Le seul probleme qu'il me reste c'est que les virgules de mes masses ont disparu, mais je devrais trouver par moi-même comment les réinsérer.
Merci encore, t'es tres fort !
Le seul probleme qu'il me reste c'est que les virgules de mes masses ont disparu, mais je devrais trouver par moi-même comment les réinsérer.
Merci encore, t'es tres fort !
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Enfin ça reste un probleme car toutes les masses n avaient pas le meme nombre de chiffres apres la virgule donc une simple division ne suffit pas...
J y reflechis !
J y reflechis !
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
Modifié le 30 mai 2018 à 14:36
Modifié le 30 mai 2018 à 14:36
Le seul probleme qu'il me reste c'est que les virgules de mes masses ont disparu
Tu veux parler des valeurs m/z dans le résultat obtenu ? Chez moi, elles y sont bien
au cas où, essaies en déclarant cle comme double
Dim dico As Object, cle As Double,
Tu veux parler des valeurs m/z dans le résultat obtenu ? Chez moi, elles y sont bien
au cas où, essaies en déclarant cle comme double
Dim dico As Object, cle As Double,
ccm81
Messages postés
10853
Date d'inscription
lundi 18 octobre 2010
Statut
Membre
Dernière intervention
24 avril 2024
2 404
4 juin 2018 à 21:09
4 juin 2018 à 21:09
De rien,
Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)
Bonne soirée
Si c'est fini, peux tu mettre le sujet à résolu (en haut à droite, la roue dentée)
Bonne soirée
29 mai 2018 à 17:12
J'ai posté une partie de mon fichier sur la réponse suivante, si tu penses que ton programme marche ca serait top !
Merci encore, vraiment.