Aide sur code | ||
---|---|---|
Inscription: 05/11/2008
Messages:
53
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 08-05-2009 16h46
Bonjour, |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 12/06/2008
De Ile de France Sud
Messages:
145
Système d'exploitation: PC Version Excel utilisée: 2003 _ 2010 |
Posté le : 09-05-2009 17h23
Bonjour à tous
Bonjour Kelly Dans le fichier joint, le code VBA est protégé, pas facile de t'aider ... ![]() Eric |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 05/11/2008
Messages:
53
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 09-05-2009 18h13
Bonjour,
Voici le code : Private Sub Worksheet_Change(ByVal Target As Range) Dim C As Byte Dim KO As Boolean If Target(1).Value = "" Then Exit Sub If Not Application.Intersect(Target, Cells.SpecialCells(xlCellTypeAllValidation)) Is Nothing Then With Target If .Validation.Formula1 = "=Matériel" Then Select Case Application.CountIf(.EntireRow, .Value) Case Is > 2 KO = True Case Is > 1 For C = 3 To 13 If Cells(.Row, C).Value = .Value And C <> .Column Then KO = Cells(2, C).Value = Cells(2, .Column).Value Exit For End If Next C End Select End If End With End If If KO Then MsgBox "Ce matériel est déjà réservé sur cette période !" Application.Undo End If End Sub Avec toutes mes excuses. Merci |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 05/11/2008
Messages:
53
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 09-05-2009 18h20
Voici le fichier sans mot de passe cette fois... |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 12/06/2008
De Ile de France Sud
Messages:
145
Système d'exploitation: PC Version Excel utilisée: 2003 _ 2010 |
Posté le : 12-05-2009 00h01
Bonsoir à tous
Bonsoir Kelly Tu peux ajouter ceci : With Worksheets("Janvier").Range(maligne) 'modifier Janvier, maligne = Target(1).Row & ":" & Target(1).Row recherchée Target(1).Value Eric |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 05/11/2008
Messages:
53
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 12-05-2009 00h39
Bonsoir à tous,
Bonsoir Eric, Merci pour ta réponse. Seulement cela ne fonctionne pas. Je dois mal insérer le code ! Ou dois-je l'insérer dans mon code actuel ? Y a til quelque chose à modifier ? Pourrais je le copier sur toutes mes feuilles (janvier à décembre)? Désolé pour toutes ses questions. Merci d'avance. |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 12/06/2008
De Ile de France Sud
Messages:
145
Système d'exploitation: PC Version Excel utilisée: 2003 _ 2010 |
Posté le : 12-05-2009 19h46
Bonsoir à tous
Bonsoir Kelly Ce que je t'ai déposé ne fonctionne pas pour tous les cas. Celui-ci, j'ai pu le tester et il a l'air de fonctionner. J'espère que c'est ce que tu recherches. Tu déposes dans un module standard ceci : Option Explicit et dans "Private Sub Worksheet_Change" de chaque feuille : Private Sub Worksheet_Change(ByVal Target As Range) On peut améliorer, mais je n'ai pas eu le temps. Dis nous Eric |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 05/11/2008
Messages:
53
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 13-05-2009 18h01
Bonjour à tous,
Bonjour Eric, Je viens d'essayer le code. Malheureusement, cela ne fonctionne pas partout et pas tout le temps ! J'ai testé pour le 2ème jour par exemple, ça ne marche pas et quand je choisis un tout autre matériel un autre jour, cela me met le message. De plus, il faut que j'ajoute d'autres matériels avec le PC1 et le PC2 que j'ai inséré dans le fichier joint. Comment faire ? Aidez-moi! Merci d'avance pour votre aide précieuse. |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 12/06/2008
De Ile de France Sud
Messages:
145
Système d'exploitation: PC Version Excel utilisée: 2003 _ 2010 |
Posté le : 13-05-2009 20h17
Bonsoir à tous
Bonsoir Kelly Le code du module modifié : ption Explicit Le code de la Feuille modifié : Option Explicit Si tu dois ajouter d'autres matériels, il faudra peut-être ajuster. Pour l'instant, cela doit (!) fonctionner avec PC1 et autre PC1 + sono, cad avec un + entouré d'espaces. Eric |
|
![]() |
![]() ![]() |
Re: Aide sur code | ||
---|---|---|
Inscription: 05/11/2008
Messages:
53
Système d'exploitation: PC Version Excel utilisée: 2003 |
Posté le : 14-05-2009 00h38
Bonsoir à tous,
Bonsoir Eric, C'est formidable ça fonctionne ! Cependant, y a t il un moyen si on choisit une nouvelle fois "PC2" et que le message s'affiche, que l'option choisie disparaisse de la cellule pour que la personne opte pour un autre matériel ! Quand tu auras un peu de temps, pourras-tu m'expliquer un peu le code car je ne comprends pas tout !! En tout cas, merci beaucoup pour ton aide. |
|
![]() |
![]() ![]() |
Vous pouvez voir les sujets.
Vous ne pouvez pas débuter de nouveaux sujets.
Vous ne pouvez pas répondre aux contributions.
Vous ne pouvez pas éditer vos contributions.
Vous ne pouvez pas effacez vos contributions.
Vous ne pouvez pas ajouter de nouveaux sondages.
Vous ne pouvez pas voter en sondage.
Vous ne pouvez pas attacher des fichiers à vos contributions.
Vous ne pouvez pas poster sans approbation.
Qui consulte actuellement ce sujet ?
1 Utilisateur(s) anonymes