Vous utilisez un navigateur obsolète. Il se peut que ce site ou d'autres sites Web ne s'affichent pas correctement. Vous devez le mettre à jour ou utiliser un navigateur alternatif.
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...
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)...
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...
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.
Ce site utilise des cookies pour personnaliser le contenu, adapter votre expérience et vous garder connecté si vous vous enregistrez.
En continuant à utiliser ce site, vous consentez à notre utilisation de cookies.