Microsoft 365 symboles dans listes de données

[perrmi]

bonjour a vous tous
le soleil est de la partie
petit problème a la suite de mon précédent post
un tableau avec une liste de données.
le symboles ? représentant une caractéristique n'est pas coller aux noms mais a la ligne suivante.
j'aimerais juste supprimer cette ligne et accoler le symbole au nom de la ligne précédente.
un fichier joint sera plus explicite
encore merci a vous de voir les possibilité
macro ou formules
perrmi

 

[perrmi]

Vous pouvez toujours remplacer la macro évènementielle par une macro classique affectée au bouton.

Si elle doit servir pour toutes les feuilles il faut une boucle sur les feuilles :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim P As Range, i&, j&
Application.ScreenUpdating = True
Set P = [A1].CurrentRegion.Resize(, 13)
With [A38].Resize(P.Rows.Count, 13) 'à adapter
.Value = P.Value 'copie les valeurs
For i = 2 To .Rows.Count
If Len(.Cells(i, 2)) = 1 Then
.Cells(i - 1, 2) = .Cells(i - 1, 2) & .Cells(i, 2)
For j = i + 1 To .Rows.Count
.Rows(j - 1) = .Rows(j).Value 'décale vers le haut
Next j
.Rows(j - 1).ClearContents
End If
Next i
End With
End Sub

merci a vous de votre rapidité
c'est parfait vraiment ce que je recherchais
vous etes doué ,encore mes félicitations.
vous etes dans l'informatique? passionné d'Excel et VBA?
en tout cas encore merci.
perrmi

 

[job75]

Je suis sur XLD depuis 15 ans et c'est là que j'ai appris le VBA.

 

[perrmi]

merci a vous de votre rapidité
c'est parfait vraiment ce que je recherchais
vous etes doué ,encore mes félicitations.
vous etes dans l'informatique? passionné d'Excel et VBA?
en tout cas encore merci.
perrmi

Derniére petite question et je vous laisse tranquille
capture d'écran ci jointe
comment copier votre macro dans ma feuille Excel ci dessus
merci.
le but est d'insérer un bouton avec votre macro sur certains onglets de mon fichier

 

[job75]

Vous collez la macro dans un module standard et vous l'affectez au(x) bouton(s).

 

[perrmi]

Derniére petite question et je vous laisse tranquille
capture d'écran ci jointe
comment copier votre macro dans ma feuille Excel ci dessus
merci

Vous collez la macro dans un module standard et vous l'affectez au(x) bouton(s).

Merci bien

 

[perrmi]

Merci bien mais hélas toutes les pages sont sous la macro meme les onglets qui n'ont rien a voir!!!!on verra demain

 

[job75]

Merci bien mais hélas toutes les pages sont sous la macro meme les onglets qui n'ont rien a voir!!!!on verra demain

Alors vous listez les feuilles concernées dans un Array :

For Each w In Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5"))

 

[perrmi]

Alors vous listez les feuilles concernées dans un Array :

For Each w In Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5"))

 

[perrmi]

Bonjour
je vais tenter de résoudre mon dernier soucis
pour le Array je dois créer un module ? ou s'inscrit :
For Each w In Sheets(Array("Feuil1", "Feuil2", "Feuil3", "Feuil4", "Feuil5"))
je suis novice ou positionner ce Array?
merci encore et bonne jpurnée

 

[job75]

je suis novice ou positionner ce Array?

Ce code est à mettre à la place de For Each w In Worksheets

 

[perrmi]

Ce code est à mettre à la place de For Each w In Worksheets

parfait
encore désolé mais je crois avoir saisi pas mal de choses avec votre patience.
bonne journée a vous et encore merci