Exercice d'entrainement
Fermé
Bilal57
Messages postés
3
Date d'inscription
samedi 24 février 2018
Statut
Membre
Dernière intervention
24 février 2018
-
Modifié le 24 févr. 2018 à 14:55
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 27 févr. 2018 à 08:46
michel_m Messages postés 16593 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 7 mars 2023 - 27 févr. 2018 à 08:46
A voir également:
- Exercice d'entrainement
- Faire un entrainement de pompier sims ✓ - Forum Jeux vidéos smartphones
- Fleur d'encre 5eme corrigé exercice ✓ - Forum PDF
- Comment trouver la correction d'un exercice ✓ - Forum Programmation
- Exercice java orienté objet corrigé ✓ - Forum Java
- Exercice d'expression écrite cm2 gratuit - Télécharger - Éducatifs
4 réponses
Whismeril
Messages postés
18279
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 mars 2023
888
Modifié le 24 févr. 2018 à 16:03
Modifié le 24 févr. 2018 à 16:03
supprimerDoublons tabChaine
Quand j'étais petit, la mer Morte n'était que malade.
George Burns
michel_m
Messages postés
16593
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
7 mars 2023
3 291
Modifié le 27 févr. 2018 à 09:32
Modifié le 27 févr. 2018 à 09:32
Bonjour,
1/ une fonction ne renvoie pas de tableau
2/en VBA, il existe l'objet Dictionary qui élimine les doublons et renvoie la liste unique sous forme d'un tableau...
Donc, si ce n'est pas trop tard,
Un exemple avec Excel
1/ une fonction ne renvoie pas de tableau
2/en VBA, il existe l'objet Dictionary qui élimine les doublons et renvoie la liste unique sous forme d'un tableau...
Donc, si ce n'est pas trop tard,
Un exemple avec Excel
Option Explicit
Dim Dico As Object
'---------------------------------------------------------------------------
Sub supprimerDoublons(ByRef TabChaine() As String)
Dim Cptr As Integer
Set Dico = CreateObject("scripting.dictionary")
For Cptr = 0 To UBound(TabChaine)
If Not Dico.exists(TabChaine(Cptr)) Then
Dico.Add TabChaine(Cptr), ""
End If
Next
End Sub
'------------------------------------------------------------------------
Sub Main()
Dim TabChaine() As String
ReDim TabChaine(7)
TabChaine(0) = "aaa"
TabChaine(1) = "paa"
TabChaine(2) = "paaa"
TabChaine(3) = "alala"
TabChaine(4) = "alala"
TabChaine(5) = "alala"
TabChaine(6) = "palala"
TabChaine(7) = "alala"
Call supprimerDoublons(TabChaine)
Range("B2").Resize(Dico.Count, 1) = Application.Transpose(Dico.keys)
End Sub
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
24 févr. 2018 à 14:57
24 févr. 2018 à 14:57
Bonjour,
Pour commencer .. ta fonction supprimerDoublons attend des paramètres ...
Sauf que quand tu l'appelles ... tu ne lui passe rien.
Pour commencer .. ta fonction supprimerDoublons attend des paramètres ...
Sauf que quand tu l'appelles ... tu ne lui passe rien.
Bilal57
Messages postés
3
Date d'inscription
samedi 24 février 2018
Statut
Membre
Dernière intervention
24 février 2018
24 févr. 2018 à 15:12
24 févr. 2018 à 15:12
Bonjour, du coup je dois lui passer comme paramètre : tabChaine() si je ne me trompe pas ?
supprimerDoublons tabChaine()
Merci pour votre réponse.
supprimerDoublons tabChaine()
Merci pour votre réponse.
jordane45
Messages postés
37253
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
17 mars 2023
4 551
24 févr. 2018 à 16:11
24 févr. 2018 à 16:11
Sans les parenthèses
Whismeril
Messages postés
18279
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 mars 2023
888
24 févr. 2018 à 15:00
24 févr. 2018 à 15:00
Bonjour
sans regarder ton code en détail, je voie que la fonction a besoin d'un paramètre et tu ne lui en fournis pas.
sans regarder ton code en détail, je voie que la fonction a besoin d'un paramètre et tu ne lui en fournis pas.
Bilal57
Messages postés
3
Date d'inscription
samedi 24 février 2018
Statut
Membre
Dernière intervention
24 février 2018
24 févr. 2018 à 15:13
24 févr. 2018 à 15:13
Bonjour, en effet merci de me l'avoir fait remarquer.