question sur Excel

Question

Bonjour,

J'ai une colonne excel qui me prend 111 pages. J'aimerai réduire le nombre de pages et faisant "continuer " la colonne sur 2 ou 3 colonnes de la 1ère page avant de continuer sur le 2ème page etc .. 

Savez vous comment faire ?

Je peux envoyer le fichier en question !

Merci !

Answer 1

Bonjour,

Avec Microsoft 365, tu peux mettre sur une autre feuille :

=ORGA.LIGNES(Feuil1!A1:A1000;3)

Ce qui dispose les données sur 3 colonnes.

Daniel

Answer 2

Cette réponse a été traduite automatiquement. Par conséquent, il peut y avoir des erreurs grammaticales ou des formulations étranges.

Bonne Année. Florencepugliese

Merci d’utiliser les produits Microsoft et de les publier dans la communauté.

Je serais honoré de vous aider à résoudre votre problème.

Je me rends compte que vous avez rencontré un problème avec Excel.

Avant de répondre à votre question, j’ai besoin de connaître quelques informations pour mieux vous aider avec votre problème.

Ma méthode implique du code VBA, si vous n’avez pas été exposé à VBA, cette technologie a un certain seuil, cela peut être plus difficile, car vous avez une grande quantité de données, il n’y a pas de moyen facile de les gérer, si vous avez été exposé à VBA, vous pouvez l’essayer.

Faites une copie de sauvegarde de vos fichiers avant d’effectuer l’opération pour éviter les erreurs.

Allez dans la feuille Excel, appuyez sur alt + F11, sélectionnez la feuille que vous devez modifier dans le menu de droite, et faites un clic droit sur « insérer » >> « Module »

Entrez le code et enregistrez-le

Retournez à l’interface de la feuille Excel et appuyez sur Alt+F11,

Sub MoVeDaTa()

    Dim i As Integer

    Dim j As Integer

    Dim k As Integer

    Dim ws As Worksheet

    Set ws = ActiveSheet

    j = 1

    k = 1

    For i = 1 To 5106 Step 138

        j = i + 46

            Range("B" & i & ":B" & i + 45).Value = Range("A" & j & ":A" & j + 45).Value

        k = i + 92

            Range("C" & i & ":C" & i + 45).Value = Range("A" & k & ":A" & k + 45).Value

    Next i

End Sub

Sub MacROSelEcT()

'

' MacSelect Macro

'

'

    Dim ws As Worksheet

    Dim i As Long

    Set ws = ActiveSheet

    For i = 5106 To 1 Step -1

        If IsEmpty(ws.Cells(i, 2).Value) Then

            ws.Rows(i).Delete

        End If

    Next i

End Sub

Cliquez maintenant sur « MoVeDaTa » >> « exécuter ». Il s’agit de recueillir les données.

Après cela, cliquez sur « MacROSelEcT » >> « Exécuter ». Il s’agit de supprimer la ligne. L’exécution du code prend beaucoup de temps, alors soyez patient.

(L’ordre ne peut pas être erroné)

Si vous pouvez envoyer un fichier, vous pouvez l’envoyer par message direct.

Cliquez sur Photo de profil en haut à droite > sélectionnez l’option Mon profil.

(Mon ordinateur n’est disponible qu’en anglais, pas en français)

Ensuite, cliquez sur Afficher les messages privés sous « Modifier le profil » sur la page Informations personnelles.

(Mon ordinateur n’est disponible qu’en anglais, pas en français)

Cliquez sur ce bouton pour envoyer le fichier.

Si les méthodes ci-dessus ne peuvent toujours pas résoudre votre problème, vous pouvez vous rendre sur ce forum 'vba' Questions - Stack Overflow pour obtenir un meilleur moyen.

Publiez des questions de programmation VBA sur Stack Overflowà l’aide de la balise vba, ainsi que de toute autre balise pertinente.

Veuillez noter que Stack Overflow a des directives telles que l’exigence d’un titre descriptif, d’un énoncé de problème complet et concis, d’un> suffisamment de détails pour reproduire votre problème. Les demandes de fonctionnalités ou les questions trop larges sont considérées comme hors sujet.

Faites-moi savoir si cela est contraire à ce dont vous avez besoin.

Sincères salutations.

Petter.Y - MSFT | Spécialiste du support communautaire Microsoft