Déplacement de contenu de cellule

[Alain17]

Bonjour,

Je suis assez débutant avec Excel et j'ai bien entendu, besoin de vos lumières...

Dans une feuille, j'ai rempli des cellules dans un tableau de 7 colonnes, mais ce n'est pas justifié à droite (les cellules sont remplies un peu n'importe comment ! il y a des trous dans le tableau...).

Or j'aimerais pour des questions de lisibilité, que tout se retrouve à droite... Un coup de baguette magique, quoi ...

Avez-vous des pistes pour une jolie macro ?

Merci d'avance,

Alain

Je joins le fichier de ce que je veux faire :

 

[Tibo]

Re : Déplacement de contenu de cellule

Salut Alain,

Il faudrait que tu nous en dises un peu plus, notamment en joignant un fichier exemple.

Ton probème peut être un problème de format de cellules.

Tes cellules contiennent-elles du texte, des chiffres ?

Pour joindre un fichier : cliquer sur Aller en mode avancé - Gérer les pièces jointes - sélectionner ton fichier - Uploader.

Le fichier : XLS ou ZIP - taille < 48,8 ko - pas de données confidentielles.

A te lire

@+

 

[Alain17]

Re : Déplacement de contenu de cellule

OK, je crois qu'il y a bien un fichier joint, pourtant...

En tout cas, merci de considérer ce probleme...😉

 

[Tibo]

Re : Déplacement de contenu de cellule

re Alain,

Une piste (peut-être pas la meilleure) :

en E3 : =SI(NBVAL(A3:C3)=3;A3;"")
en F3 : =SI(NBVAL(A3:C3)>=2;DROITE(STXT(A3&B3&C3;1;NBVAL(A3:C3)-1));"")
en G3 : =DROITE(A3&B3&C3)

Formules à recopier vers le bas

Essaye et dis nous

Bon dimanche

@+

Edit : simplification pour F3 :

F3 : =SI(NBVAL(A3:C3)>=2;DROITE(A3&B3);"")

@+

 

[Alain17]

Re : Déplacement de contenu de cellule

Oui, cela marche. (mais je savais le faire...).

Mon message n'était pas assez précis : tout doit être fait "sur place" ! Je voudrais une macro qui fasse le déplacement des contenus si c'est vide à droite...

En espérant éclaircir le probleme petit à petit...

Alain17

 

[SergiO]

Re : Déplacement de contenu de cellule

Bonjour Alain, Tibo

Un essai en VBA à adapter :

Sub Baguette_magique()
Application.ScreenUpdating = False
Dim i, j, k As Integer

For i = 3 To 10 Step 1
    For j = 7 To 2 Step -1
        For k = j - 1 To 1 Step -1
            If Cells(i, j) = "" Then
            Cells(i, j).Value = Cells(i, k).Value
            Cells(i, k).ClearContents
            End If
        Next k
    Next j
Next i

Application.ScreenUpdating = True
End Sub

@+

 

[Alain17]

Re : Déplacement de contenu de cellule

Impeccable !

Merci Sergio !

J'ai en fait 300 lignes, donc ça prend son temps, mais c'est bien l'outil dont j'avais besoin !

Comment je peux dire que je veux le lancer sur 27 feuilles différentes ?
Encore une boucle ?

Bon, ce n'est pas très grave, je peux le faire à la main.

Encore un grand merci à tous ceux qui se sont penchés sur le problème...

Alain17

 

[SergiO]

Re : Déplacement de contenu de cellule

Re,

Le code modifié (pas testé) pour balayer le code sur toutes les feuilles du fichier

Sub Baguette_magique()
Application.ScreenUpdating = False
Dim i, j, k As Integer
Dim WS As Worksheet 
For Each WS In Sheets
WS.Activate 
For i = 3 To 10 Step 1
    For j = 7 To 2 Step -1
        For k = j - 1 To 1 Step -1
            If Cells(i, j) = "" Then
            Cells(i, j).Value = Cells(i, k).Value
            Cells(i, k).ClearContents
            End If
        Next k
    Next j
Next i
Next WS 
Application.ScreenUpdating = True
End Sub