> Tous les forums > Forum Bureautique
 Copier une série de ligne avec deux conditionsSujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Douchka17
  Posté le 08/03/2010 @ 16:35 
Aller en bas de la page 
Nouvelle astucienne

Bonjour,

J'essaye de trouver un code pour faire l'action suivante:

J'ai une worksheet appellée "Data", avec 7 colonnes.

J'ai une worksheet appellée "Country", où je dois copier certaines cellules de certaines lignes de "Data":

Dans les colonnes B, C, D, E de "Country" (à partir de la ligne 8), je dois copier les colonnes A, B, E, G de "Data" (à partir de la ligne 8 également) sous deux conditions:

1) le contenu de la colonne H de "Data" = Europe

2) le contenu de la colonne I de "Data" = le contenu de la cellule A4 de la worksheet "Country"

Je ne parviens vraiment pas à trouver un code qui fonctionne, merci de votre aide!!!!!!

Publicité
LnK6280
 Posté le 08/03/2010 à 19:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

tu ne sais pas nous up ton fichier?

Sinon il y a =somme.si(x) mais je ne sais pas si dans ta colonne il n'y a qu'une seule condition pour toute la colonne ou une condition par ligne



Modifié par LnK6280 le 08/03/2010 19:08
Bérylion
 Posté le 08/03/2010 à 22:58 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Message original par Douchka17

Bonjour,

J'essaye de trouver un code pour faire l'action suivante:

J'ai une worksheet appellée "Data", avec 7 colonnes.

J'ai une worksheet appellée "Country", où je dois copier certaines cellules de certaines lignes de "Data":

Dans les colonnes B, C, D, E de "Country" (à partir de la ligne 8), je dois copier les colonnes A, B, E, G de "Data" (à partir de la ligne 8 également) sous deux conditions:

1) le contenu de la colonne H de "Data" = Europe

2) le contenu de la colonne I de "Data" = le contenu de la cellule A4 de la worksheet "Country"

Je ne parviens vraiment pas à trouver un code qui fonctionne, merci de votre aide!!!!!!

Salut

une proposition :

Sub Douchka17()
arr = Array("A", "B", "E", "G")
For i% = 8 To Sheets("Data").Range(Sheets("Data").Range("A8"), Sheets("Data").Range("A8").End(xlDown)).Count + 8
If Sheets("Data").Range("H" & i).Value = "europe" And Sheets("Data").Range("I" & i).Value = Sheets("Country").Range("A4").Value Then
For j% = 1 To 4
Sheets("Country").Range("A8").Offset(k, j).Value = Sheets("Data").Range(arr(j - 1) & i).Value
Next
k = k + 1
End If
Next
End Sub

Douchka17
 Posté le 09/03/2010 à 15:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Nouvelle astucienne

Berylion,

Ca marche, c'est parfait!

Mais le souci c'est que quand je change la valeur en A4, si il n'y arien à copier (rien dans la feuille Data qui est = à la nouvelle valeur A4), il garde les anciennes lignes copiées.

Est-il possible de rajouter quelque chose pour que ça ne mettre "rien" (et que ça "efface" les lignes précédentes)?

Merci!!!

Bérylion
 Posté le 10/03/2010 à 09:59 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Astucien

Douchka17 a écrit :

Berylion,

Ca marche, c'est parfait!

Mais le souci c'est que quand je change la valeur en A4, si il n'y arien à copier (rien dans la feuille Data qui est = à la nouvelle valeur A4), il garde les anciennes lignes copiées.

Est-il possible de rajouter quelque chose pour que ça ne mettre "rien" (et que ça "efface" les lignes précédentes)?

Merci!!!

Sub Douchka17()
arr = Array("A", "B", "E", "G")
Sheets("Country").Range(Sheets("Country").Range(Sheets("Country").Range("B8"), Sheets("Country").Range("B8").End(xlToRight)), Sheets("Country").Range(Sheets("Country").Range("B8"), Sheets("Country").Range("B8").End(xlToRight)).End(xlDown)).ClearContents
For i% = 8 To Sheets("Data").Range(Sheets("Data").Range("A8"), Sheets("Data").Range("A8").End(xlDown)).Count + 8
If Sheets("Data").Range("H" & i).Value = "europe" And Sheets("Data").Range("I" & i).Value = Sheets("Country").Range("A4").Value Then
For j = 1 To 4
Sheets("Country").Range("A8").Offset(k, j).Value = Sheets("Data").Range(arr(j - 1) & i).Value
Next
k = k + 1
End If
Next
End Sub

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
74,99 €Casque Logitech G Pro Gaming à 74,99 €
Valable jusqu'au 05 Mars

Amazon fait une promotion sur le casque Logitech G Pro qui passe à 74,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 99 € . Conçu en collaboration avec de nombreux joueurs professionnels sur divers genres de jeux, le Logitech G Pro Gaming Headset va vous permettre d'entendre les sons de votre jeu avec précision. Il est doté de transducteurs Pro-G de 50 mm et d'un microphone de qualité professionnelle.


> Voir l'offre
96,99 €SSD WD Blue SN550 1 To (NMVe M.2, 2400 Mo/s) à 96,99 €
Valable jusqu'au 05 Mars

Amazon fait une promotion sur le SSD WD Blue SN550 1 To (NMVe M.2) qui passe à 96,99 € livré gratuitement alors qu'on le trouve ailleurs à partir de 129 €. Ce SSD utilise une interface M.2 NVMe PCIe Gen3 x 4 pour une connexion simple et des performances exceptionnelles : jusqu’à 2 400 Mo/s en lecture séquentielle et jusqu’à 1 950 Mo/s en écriture séquentielle. Le SSD est doté de la technologie 3D TLC NAND haute densité offrant une endurance d’écriture durable et assorti d’une garantie de cinq ans.


> Voir l'offre
524,88 €Ecran PC incurvé 34 pouces Gigabyte G34WQC (WQHD, 144 Hz) à 524,88 €
Valable jusqu'au 05 Mars

Amazon fait une promotion sur l'écran PC incurvé 34 pouces Gigabyte G34WQC qui passe à 524,88 € au lieu de 600 €. Cet écran possède une dalle incurvée 34 pouces VA WQHD (3440x1440) à 1 ms et à 144 Hz (FreeSync Premium et Adaptive Sync). Elle offre le HDR400 et intègre 2 haut-parleurs 2W. Son pied est réglable en hauteur et en inclinaison.


> Voir l'offre

Sujets relatifs
deux retours à la ligne avec Word 2007
Colorier une ligne sur deux avec excel 2007
MFC de ligne avec 3 conditions (résolu)
copier ligne si cellule vide
échelle des x avec deux colonnes date et heure
copier une ligne feuille 1 pour remettre feuille2
Macro Copier ligne vers un autre fichier
tableurs se bloquent avec copier-coller !
Calcul avec conditions
Formule de choix avec 3 conditions
Plus de sujets relatifs à Copier une série de ligne avec deux conditions
 > Tous les forums > Forum Bureautique