> 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
34,24 €Webcam Aukey FullHD à 34,29 € (via coupon)
Valable jusqu'au 01 Mars

Amazon propose la webcam Webcam Aukey FullHD à 34,29 € livrée gratuitement grâce à un coupon de réduction à activer sur la page du produit. On la trouve habituellement autour de 45 €. Cette webcam offre une résolution FullHD 1080p pour une vidéo claire et nette et intègre deux microphones réduisant les bruits de fond. Elle est compatible Windows, Mac et Android. 


> Voir l'offre
48,50 €SSD Crucial BX500 480 Go à 48,50 €
Valable jusqu'au 28 Février

Amazon propose actuellement le SSD Crucial BX500 480 Go à 48,50 € livré gratuitement alors qu'on le trouve ailleurs à plus de 60 €. Ce SSD offre des débits de 540 Mo/s en lecture et 500 Mo/s en écriture. Le SSD est accompagné du logiciel Acronis true image qui vous permettra de transférer tout le contenu de votre ancien disque dur sur le SSD. Il est garanti 3 ans. 


> Voir l'offre
259 €PC Ankermann (Intel Pentium Dual Core, 8Go RAM, SSD 480Go, Win 10 + Office 2019) à 259 € livré
Valable jusqu'au 01 Mars

Amazon fait une promotion sur l'ordinateur de bureau Ankermann Silent PC Work à 259 € livré. Le PC est équipé d'un processeur Intel Pentium dual core à 2.7 GHz, de 8 Go de RAM, d'un SSD de 480 Go, d'un lecteur DVD, d'un lecteur de carte mémoires et tourne sous Windows 10 Pro 64 bits. Microsoft Office 2019 Pro en français est également fourni.

Ajoutez un écran (comme cet écran 24 pouces AOC 24B2XHM2 (FullHD, sans contour) à 89,99 € avec le code 10EUROS) et un pack clavier souris (comme ce pack filaire Logitech MK120 à 17,99 € ou ce pack sans fil Logitech MK270 à 27,99 €) et vous avez un PC complet à l'aise en bureautique et Internet. Garantie 2 ans.


> 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