Résultats de la recherche

Bonjour, La fonction que tu présentes effectue la concaténation des cellules en utilisant un séparateur paramétré. Un autre paramètre (optionnel) permet de ne sélectionner que les cellules qui contiennent un caractère (ou chaine de caractères) donné. Reste à savoir comment tu utilises cette...

Bonjour, Pas sûr que ce soit plus "lisible" : =MIN(INDEX(ColonneA;LIGNE());INDEX(ColonneB;LIGNE())) Cordialement.

Bonjour, Une proposition ... Cordialement.

C'est normal puisque seule la zone de données est autorisée, l'autre partie étant protégée.

De mon coté, je ne constate pas le problème. J'effectue un copier des données (hors en-tête) issues de tmp18, puis un coller en A5. La procédure de mise en forme s'exécute correctement. Il faudrait que tu m'expliques comment tu procèdes pour ce copier / coller des données. Cordialement.

Bonjour, Il suffirait remplacer la ligne If WsS.Cells(LigneS, 1) Like "*Château*" Then par If WsS.Cells(LigneS, 1).Hyperlinks.Count > 0 Then Cordialement.

Bonsoir, Essaie avec ce code Sub Test() Dim WsS As Worksheet Dim LigneS As Long Set WsS = Worksheets("Feuil1") For LigneS = 3 To WsS.Range("A" & Rows.Count).End(xlUp).Row If WsS.Cells(LigneS, 2) = "" Then WsS.Cells(LigneS, 1) = WsS.Cells(LigneS - 1, 1) End If...

Bonjour, Une proposition avec macro Sub test() Dim WsS As Worksheet, WsC As Worksheet Dim LigneS As Long, LigneC As Long Dim ColonneC As Integer Set WsS = Worksheets("Source") Set WsC = Worksheets("cible") For LigneS = 1 To WsS.Range("A" & Rows.Count).End(xlUp).Row If...

Bonjour, Essaie avec cette macro Sub Supprimer() Dim Ligne As Long Dim C As Integer Dim T T = Array(1, 2, 5) For Ligne = Range("A" & Rows.Count).End(xlUp).Row To 3 Step -1 If Cells(Ligne, 2) = Cells(Ligne - 1, 2) Then For C = LBound(T) To UBound(T)...

Dans le classeur joint, tu pourras constater que l'ajout d'un N°S dans la colonne A sous le tableau est bien intégré au tableau. Cordialement.

Bonjour, C’était lié à l’effacement des cellules à l’ouverture du classeur. J’ai modifié le code afin que celui-ci ne se fasse que sur les plages renseignées. C’est fait. Les 4 feuilles sont protégées dans les zones non autorisées. J’ai ajouté un bout de code pour l’effacement avant...

Tu as certainement posté le mauvais fichier … Il n’y a pas de feuille nommée Instruction et aucune ligne 9 avec un produit. Sans explications complémentaires, tu as peu de chance d’obtenir une réponse. Cordialement.

Bonjour Pour permettre aux contributeurs de t’aider efficacement, il est souhaitable que tu mettes à disposition un fichier représentatif de l'original (mais sans données confidentielles). Cordialement.

Bonjour, J’ai ajouté quelques commentaires dans les codes. Pour interdire la copie des lignes 1 à 4, j’ai verrouillé les cellules de ces lignes puis déverrouillé les cellules depuis la ligne 5 jusqu’à la fin de la feuille. Il suffit ensuite d’activer la protection de la feuille en autorisant...

J’ai apporté quelques modifications aux procédures. Je te laisse faire le test et me dire si cela correspond à ton attente. Cordialement.

Quelque chose m’échappe dans ton traitement … A l’ouverture du classeur, tu effaces les données des 3 feuilles. D’où proviennent les données censées renseigner "ODM Valide" ? Est-ce qu’un copier / coller est effectué systématiquement par l’opérateur après cette ouverture ?

La fonction split permet de scinder une chaîne de caractères. Dans ton cas, le séparateur choisi est le signe "-". Le résultat se compose de 2 sous-chaînes : le NUMERO_PLAN et l’indice de REVISION. Exemple : Dim T T = Split("DET57855-A", "-") On obtient T(0)= "DET57855" T(1)= "A" La fonction...

Bonjour, Essaie comme cela Private Sub Worksheet_Activate() Dim celluleD As Range Dim Numero_Plan As String, Revision As String For Each celluleD In Range([D2], [D2].End(xlDown)) Numero_Plan = Split(celluleD, "-")(0) Revision = Split(celluleD, "-")(1) If Revision <>...

Dans la liste de validation en A6, un espace malheureux est placé juste après "dimanche". Pour corriger : sélectionner A6 puis Données > Outils de données / Validation des données puis supprimer l'espace après "dimanche". Cordialement.

Bonsoir, Une proposition avec SOMMEPROD ... Cordialement.