Intégrer 2 codes VBA sur la même feuille
Bonjour à tous,
Je me tourne vers vous car mes connaissances en VBA sont proches de 0.
J'ai créé un outil type "CVthèque" dans lequel je souhaite faire cohabiter 2 codes VBA (trouvés sur le net) dans la même feuille :
- Le premier permettant d'attribuer automatique un "ID" pour chaque entretien.
- Le second permettant de créer des liste à choix multiples
Voici le 1er :
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
If IsEmpty(Target.Offset(0, -1)) Then
With Sheets("ID").Cells(1, 1)
Target.Offset(0, -1).Value = .Value
.Value = .Value + 1
End With
End If
End If
End Sub
Voici le 2nd :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim xRng As Range
Dim xValue1 As String
Dim xValue2 As String
Dim delimiter As String
Dim TargetRange As Range
Set TargetRange = Me.UsedRange ' Users can change target range here
delimiter = ", " ' Users can change the delimiter here
If Target.Count > 1 Or Intersect(Target, TargetRange) Is Nothing Then Exit Sub
On Error Resume Next
Set xRng = TargetRange.SpecialCells(xlCellTypeAllValidation)
If xRng Is Nothing Then Exit Sub
Application.EnableEvents = False
xValue2 = Target.Value
Application.Undo
xValue1 = Target.Value
Target.Value = xValue2
If xValue1 <> "" And xValue2 <> "" Then
If Not (xValue1 = xValue2 Or _
InStr(1, xValue1, delimiter & xValue2) > 0 Or _
InStr(1, xValue1, xValue2 & delimiter) > 0) Then
Target.Value = xValue1 & delimiter & xValue2
Else
Target.Value = xValue1
End If
End If
Application.EnableEvents = True
On Error GoTo 0
End Sub
Les codes mis séparément fonctionnent bien mais mis séparément non.
J'ai tenté de manipulé seul mais cela ne fonctionne pas.... Pourriez-vous m'aider ?
ps : je peux fournir sur demande le doc si besoin sans info personnelles
Merci d'avance
Bonsoir,
En effet je pense que c'est plus simple de fournir le fichier.
Cordialement
Ok bien sûr, le voici (j'ai retiré les infos nominatives)
Petite question , le second code je ne pense pas qu'il fasse ce que vous dites; l'avez vous testé si oui, vous pouvez me dire ce qu'il fait et ce que vous aurez aimé qu'il fasse. Pour moi il fait des concaténation en se servant d'un délimiteur entre l'ancienne valeur (BABA) et la nouvelle (TOTO) dans la cellule. Apres exécution de la seconde macro, vous aurez BABA ,TOTO. Si c'est bien ce qui est recherché dites moi alors sur quelle cellule ou colonne cela doit être appliqué.
cordialement
Rebonjour et merci pour votre aide !
Je viens de le tester à l'instant (je supprime le 1er code pour coller le 2nd tout seul) le code numéro 2 seul fonctionne. Ça répond à mon besoin bien que ce soit une rustine (car le code impacte en réalité toute ma feuille et j'ai besoin qu'il impacte juste une colonne...)
Il permet de renseigner plusieurs choix issue d'une liste déroulante dans la même cellule.
Ce que je souhaite est relativement simple :
Je souhaiterais pouvoir renseigner plusieurs choix dans la colonne "bassin de l'emploi'" et pour chaque personnes (chaque lignes sous les entêtes).
Cette colonne dispose d'une liste déroulante. Mais je ne peux choisir qu'un seul choix sans VBA
Bref cette liste déroulante propose différents secteurs géographiques (la mobilité des personnes dans le département) et je voudrais avoir la capacité d'en renseigner plusieurs tout simplement.
Monsieur XXX peut se déplacer la fois sur le bassin "PLAINE et LITTORAL" mais aussi en "CERDAGNE-CAPCIR" mais aussi en secteur "FENOUILLEDES"
Monsieur YY peut se déplacer uniquement sur le bassin "PLAINE et LITTORAL"
Bien cordialement
Bonsoir,
je vous proposes alors ce petit code en plus, suivant ce que j'ai co!mpris.
Sans le code 1 auriez vous la création de nouvelles lignes ?
Cordialement
Je vous fais une autre proposition qui tient compte de ce que vous voulez et qui à l'ajout d'une nouvelle ligne rajoute l'id automatiquement et la date du jour.
Merci ghisnob. Ton code fonctionne très bien, c'est exactement ce dont j'avais besoin.
Je te remercie pour l'aide!
Bonjour et merci pour le retour.
N'hésitez pas au besoin