Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Copier/coller sous conditions

D

davy76

XLDnaute Nouveau
Bonjour,

Je dispose d'un tableau toutes les semaines (le nombre de ligne varie suivant les semaines), que j'aimerais mettre en forme.
J'aimerais que lorsque la colonne A contient une ville, Excel reprenne l'info correspondante en colonne J.
Et fasse un copier coller sur une autre feuille.

Merci de votre aide
 

Pièces jointes

  • test.xlsx
    9.7 KB · Affichages: 10
Solution
Bonjour davy76,

Il est facile de voir (test en colonne O) que par exemple les cellules telles que A2:A9 ne sont pas vides.

Elles contiennent le texte vide "".

Il suffit d'effacer ces textes vides sur toute la colonne A, voyez ce fichier (2) :
VB: 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Rows("38:" & Rows.Count).Delete 'RAZ
With Sheets("Feuil1") 'à adapter
    .[A:A].Replace "", " ", xlWhole 'espace dans les cellules vides ou contenant un texte vide
    .[A:A].Replace " ", "" 'effacement des espaces
    On Error Resume Next 'si aucune SpecialCell
    Intersect(.[A:A,J:J], .[A:A].SpecialCells(xlCellTypeConstants).EntireRow).Copy [B38]
End With
Columns.AutoFit 'ajustement largeurs
With UsedRange: End...
Trier par date Trier par votes

job75

XLDnaute Barbatruc
Bonsoir davy76,

Le code de la feuille "Résultat" est très simple :
VB: 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Cells.Delete 'RAZ
With Sheets("Feuil1") 'à adapter
    On Error Resume Next 'si aucune SpecialCell
    Intersect(.[A:A,J:J], .[A:A].SpecialCells(xlCellTypeConstants).EntireRow).Copy [A1]
End With
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
La macro se déclenche automatiquement quand on active la feuille.

A+
 

Pièces jointes

  • test(1).xlsm
    17.4 KB · Affichages: 11
Vote positif 0 Vote négatif
D

davy76

XLDnaute Nouveau
Bonjour @job75,

Dans mon fichier d'origine la macro ne fonctionne pas. Il reprend bien les données pour les copier mais ne me supprime pas les lignes vides en fonction de la colonne A.
Et j'aimerais si c'est possible qu'il me colle les infos sur la Feuil2 en B38. Sachant qu'il y aura des infos jusqu'à la ligne 36.
 

Pièces jointes

  • Copie de test(1).xlsm
    22.2 KB · Affichages: 4
Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc
Bonjour davy76,

Il est facile de voir (test en colonne O) que par exemple les cellules telles que A2:A9 ne sont pas vides.

Elles contiennent le texte vide "".

Il suffit d'effacer ces textes vides sur toute la colonne A, voyez ce fichier (2) :
VB: 
Private Sub Worksheet_Activate()
Application.ScreenUpdating = False
Rows("38:" & Rows.Count).Delete 'RAZ
With Sheets("Feuil1") 'à adapter
    .[A:A].Replace "", " ", xlWhole 'espace dans les cellules vides ou contenant un texte vide
    .[A:A].Replace " ", "" 'effacement des espaces
    On Error Resume Next 'si aucune SpecialCell
    Intersect(.[A:A,J:J], .[A:A].SpecialCells(xlCellTypeConstants).EntireRow).Copy [B38]
End With
Columns.AutoFit 'ajustement largeurs
With UsedRange: End With 'actualise la barre de défilement verticale
End Sub
A+
 

Pièces jointes

  • test(2).xlsm
    24.4 KB · Affichages: 6
Vote positif 0 Vote négatif
Solution
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
454
Nel'
N
  • Résolu(e)
Microsoft 365 Automatisation - Copier coller
Réponses
6
Affichages
685
MCenpls
P
  • Résolu(e)
XL 2021 Besoin d'aide pour copier/coller données de plusieurs classeurs
2
Réponses
20
Affichages
686
Pac41240
P
E
  • Question
XL 2016 générateur de cycle (12 semaines / 12 pro)
Réponses
11
Affichages
410
emilieG28
E
F
  • Résolu(e)
Microsoft 365 copier coller des colonnes en fonction de la valeur d'une cellule
Réponses
8
Affichages
632
loloboc
L
A
  • Question
XL 2019 Copier une plage dans un fichier fermé en VBA
2
Réponses
21
Affichages
2 K
Amilo
A
C
  • Question
Autres copier coller cellule d'un fichier source
Réponses
12
Affichages
696
job75
R
  • Question
Microsoft 365 VBA copier coller des cellules
Réponses
6
Affichages
823
Phil69970
M
  • Question
XL 2019 Copier des lignes les unes a la suite des autres dans une autre feuille sous conditions et seulement certaines colonnes
Réponses
7
Affichages
640
MGH
M
A
  • Résolu(e)
Microsoft 365 Correction d'un code vba
2
Réponses
22
Affichages
1 K
AD95
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…