Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Modification d'un code hben

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion Seddiki_adz
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
S

Seddiki_adz

XLDnaute Impliqué
bonjour
j'ai besoin d'aide pour corriger le code hben
le code fonctionne avec plage 2
je veut qu'il fonctionne aussi avec le plage 3 ou si je créer une autre plage
Merci d'avance
 

Pièces jointes

Solution
Re,
Seddiki_adz à dit:
il manque le tableau de surveillance de chaque jours
Cliquez pour agrandir...
Il ne faut qu'un problème par fil, et non plusieurs sinon le futur lecteur aura du mal à suivre.
Alors juste une exception, car j'ai l'impression qu'il n'y aura pas de fin.
Rappelez vous qu' XLD est là pour aider et non pour faire.

En PJ feuille Surveillants, on choisit la matinée et on a l'affectation des surveillants en fonction des salles.
Trier par date Trier par votes
Bonjour Mr job75 bonjour tout le monde
ce code dispatch les profs sur salles
Sub hben()
Application.ScreenUpdating = False
vv = [V1]: ww = vv + 1
Range("T:T").ClearContents
Set myrange2 = Range("T3:T" & ww + 2)
Randomize
For j = 1 To vv
5: Y = Int(Rnd * ww)
For Each cel In myrange2
If cel = Y Or Y = 0 Then GoTo 5
Next cel
Cells(j + 2, 20).Value = Y
Next j
For Each cel In myrange2
If cel.Value > ([B1] - 1) * [B2] Then cel.Value = ""
Next cel
Application.ScreenUpdating = True
End Sub
 
Vote positif 0 Vote négatif
Re, bonsoir Job,
Seddiki_adz à dit:
si j'ajoute une colonne H ou autres colonne le code ne fonctionne pas
Cliquez pour agrandir...
Vous plaisantez ?
Votre nouvelle PJ n'a pas la même structure que l'ancien, et de plus il n'y a pas le dispatch Séance/Prof, ni le tableau inverse Prof/Séance. De plus il n'y a pas le code que j'avais mis.
Je jette l'éponge, j'ai l'impression d'avoir bossé pour rien. Et demain il y aura un nouveau fichier ??
 
Vote positif 0 Vote négatif
Non juste j'ai cacher des colonne
j'ai modifier le fichier manuellement si tu veut je te l'envoyer
Merci pour ton aide
 
Vote positif 0 Vote négatif
Seddiki_adz à dit:
si tu veut je te l'envoyer
Cliquez pour agrandir...
Non, inutile.
1- Votre nouvelle PJ n'a pas la même structure que l'ancien,
2- il n'y a pas le tableau dispatch Séance/Prof,
3- ni le tableau inverse Prof/Séance.
4- De plus il n'y a pas le code que j'avais mis.
Le code que je vous ai donné fonctionne que sur cette structure. Il n'y a aucun planning dans votre fichier, comme celui prévu :
Tableau origine

Tableau destination.


Donc impossible d'être compatible de la macro.
 
Vote positif 0 Vote négatif
Non tu n'a pas me compris je parle de mon fichier joint
le code du module dispatch fonction seulement avec la colonne T
 

Pièces jointes

Vote positif 0 Vote négatif
Re,
Seddiki_adz à dit:
il manque le tableau de surveillance de chaque jours
Cliquez pour agrandir...
Il ne faut qu'un problème par fil, et non plusieurs sinon le futur lecteur aura du mal à suivre.
Alors juste une exception, car j'ai l'impression qu'il n'y aura pas de fin.
Rappelez vous qu' XLD est là pour aider et non pour faire.

En PJ feuille Surveillants, on choisit la matinée et on a l'affectation des surveillants en fonction des salles.
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
Merci
excellent
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
XL 2013 Vérifier ci cellule pleine : réponse cellule adjacente
Réponses
3
Affichages
279
Nico77
N
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
318
job75
R
  • Résolu(e)
XL 2021 plage de date comprise dans une autre plage de date
Réponses
3
Affichages
130
Ron74
R
D
  • Question Question
XL 2019 VBA Définir une zone d'impression
Réponses
5
Affichages
234
dadaze
D
D
  • Question Question
XL 2016 Format date
Réponses
3
Affichages
126
dadaze
D
F
  • Question Question
Microsoft 365 Tableau Excel mettre une couleur
Réponses
11
Affichages
166
chris
S
  • Question Question
Microsoft 365 code vba pour chaine de caractère
Réponses
4
Affichages
296
vgendron
  • Question Question
XL 2016 Filtrer plage via le contrôle ActiveX : combobox
Réponses
7
Affichages
341
KTM
  • Question Question
Microsoft 365 VBA : Problème de reconnaissance de variable avec fonction FIND
Réponses
2
Affichages
143
Dranreb
  • Résolu(e)
XL 2021 Copier une plage de données d'après un critère en VBA
2
Réponses
26
Affichages
731
oguruma
S
  • Résolu(e)
XL 2019 VBA automatiser hauteur de lignes
Réponses
7
Affichages
354
sofmat
S
  • Question Question
XL 2016 Boucler sur les feuilles d'un classeur
Réponses
7
Affichages
259
KTM
R
  • Question Question
Microsoft 365 Interrompre synchronisation OneDrive d'un dossier ou sous-dossie
Réponses
5
Affichages
419
wDog66
A
  • Question Question
XL 2010 Filtrer un Combobox en VBA excel
2 3
Réponses
43
Affichages
1 K
Dranreb
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
338
spike29
S
F
  • Question Question
Microsoft 365 Code article suivant
Réponses
8
Affichages
255
OKBI
O
C
  • Résolu(e)
XL 2016 Propriété pour déterminer si la sélection correspond à une plage de cellules
Réponses
2
Affichages
153
crocrocro
C
I
  • Résolu(e)
Microsoft 365 Copier-coller dans une plage avec des cellules masquées
Réponses
6
Affichages
467
sylvanu
  • Question Question
Microsoft 365 Initialisation d'une variable tableau à partir d'une plage de cellules
2
Réponses
17
Affichages
599
job75
  • Résolu(e)
XL 2019 Problème de copie de plages non contiguës vers une autre feuille en VBA
Réponses
9
Affichages
212
flc13090
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…