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

Colage spécial conditionné

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion condors.s
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

condors.s

XLDnaute Occasionnel
Bonjour le forum.
Je cherche une solution pour faire un colage spécial conditionné.
J'ai sur mon fichier 2 onglets.
Sur chaque onglet 1 tableau. Il s'agit des meme sur les 2 onglets (meme taille, meme position sur la page,...).

Je souhaiterais copier les valeur du tableau 2 dans le 1 en ne prenant que les cellule dont le résultat est compris entre 1 et 9.

Merci à tous
 
Trier par date Trier par votes
Re : Colage spécial conditionné

Bonjour le forum.
Désolé si il vous manque de l'inspiration.

En fait je suis au point pour la commande sur le copier coller (normal c'est assez basique), mais complètement paumé quand à rajouter une condition....
 
Vote positif 0 Vote négatif
Re : Colage spécial conditionné

J'ai un peu avancé mais je ne suis pas sur de la méthode.
J'ai écris un code pour 1 cellule et je me disait que je pouvait le dupliquer autant de fois qu'il y a de cellules (mais pas très optimale car il y en a près de 80...

Voilà le code écrit (qui ne marche pas d'ailleur)

Code: 
Sub remplissage()
if range("b2").value > 1
if range("b2").value < 9
If Sheets("Feuil1").Range("b2").Value = "" Then
Range("b2").Select
Selection.Copy
Sheets("Feuil1").Select
Range("b2").Select
Selection.PasteSpecial Paste:=xlPasteValues, _
End If
End Sub
 
Vote positif 0 Vote négatif
Re : Colage spécial conditionné

Bonjour Condors.s 🙂,
Code: 
Sub Test()
Dim Ligne As Integer, Colonne As Integer
With Sheets("Feuil1")
For Colonne = 2 To 8
For Ligne = 2 To 21
If .Cells(Ligne, Colonne) > 1 And .Cells(Ligne, Colonne) < 9 Then
Sheets("Feuil2").Cells(Ligne, Colonne) = .Cells(Ligne, Colonne)
End If
Next Ligne
Next Colonne
End With
End Sub
a plus de chance de marcher 😛...
Bonne journée 😎
 
Vote positif 0 Vote négatif
Re : Colage spécial conditionné

Merci JNP pour ce petit pas pour toi et bon de géant pour mon fichier.

Deux petits soucis :
- Seule la 1ère cellule correspondant aux conditions marche, mais la macro ne se répete pas jusqu'a avoir parcourru tout le tableau
- Je voudrais que si dans l'onglet 2 une cellule est déjà remplie, celle-ci ne soit pas écrassé, peut on ajouter un 2eme and reprenant une condition dépendant de l'onglet (=vide)?

Merci beaucoup
 
Vote positif 0 Vote négatif
Re : Colage spécial conditionné

Re 🙂,
condors.s à dit:
- Seule la 1ère cellule correspondant aux conditions marche, mais la macro ne se répete pas jusqu'a avoir parcourru tout le tableau
Cliquez pour agrandir...
As-tu modifié les lignes et colonnes dans la macro ?
Code: 
For Colonne = [COLOR=red][B]2 To 8[/B][/COLOR]
For Ligne = [COLOR=red][B]2 To 21[/B][/COLOR]
condors.s à dit:
- Je voudrais que si dans l'onglet 2 une cellule est déjà remplie, celle-ci ne soit pas écrassé, peut on ajouter un 2eme and reprenant une condition dépendant de l'onglet (=vide)?
Cliquez pour agrandir...
Code: 
If [COLOR=red][B]Sheets("Feuil2").Cells(Ligne, Colonne) <> "" And[/B][/COLOR] _
   .Cells(Ligne, Colonne) > 1 And .Cells(Ligne, Colonne) < 9 Then
Bon courage 😎
 
Vote positif 0 Vote négatif
Re : Colage spécial conditionné

J'ai modifié le code comme ca :

Code: 
Sub Test()
Dim Ligne As Integer, Colonne As Integer
With Sheets("Feuil2")
For Colonne = 2 To 10
For Ligne = 2 To 10
If Sheets("Feuil1").Cells(Ligne, Colonne) <> "" And Sheets("Feuil2").Cells(Ligne, Colonne) > 1 And Sheets("Feuil2").Cells(Ligne, Colonne) < 9 Then
End If
Next Ligne
Next Colonne
End With
End Sub

Maintenant ca ne marche plus du tout...😡
 
Vote positif 0 Vote négatif
Re : Colage spécial conditionné

Bonjour Condor

Salut JNP

Un essai

Code: 
Sub test()
For Each cel In Sheets("Feuil1").UsedRange
  If cel.Value > 0 And cel.Value < 10 Then
    cel.Copy Destination:=Sheets("Feuil2").Range(cel.Address)
  End If
Next cel
Sheets("Feuil2").Select
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Colage spécial conditionné

Re 🙂,
Salut Pierre-Jean 😉,
Un petit dérappage de ma part
Code: 
Sub Test()
Dim Ligne As Integer, Colonne As Integer
With Sheets("Feuil2")
For Colonne = 2 To 10
For Ligne = 2 To 10
If Sheets("Feuil1").Cells(Ligne, Colonne).Value [COLOR=red][B]=[/B][/COLOR] "" And .Cells(Ligne, Colonne).Value >= 1 _
    And .Cells(Ligne, Colonne).Value <= 9 Then
Sheets("Feuil1").Cells(Ligne, Colonne).Value = .Cells(Ligne, Colonne).Value
End If
Next Ligne
Next Colonne
End With
End Sub
Bonne soirée 😎
 
Vote positif 0 Vote négatif
Re : Colage spécial conditionné

En fait j'ai parlé un peu vite.
- Je voudrais que la macro de pierrejean ne fasse qu'un collage valeur
- Ne le faire que pour les cellules non vide de la feuille1
- le ne faire que pour les cellules B2:J10

Merci beaucoup pour votre aide
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

J
  • Question Question
XL 2016 Formule de recherche de valeurs sur deux onglets en entête et en ligne
2
Réponses
22
Affichages
657
Jaykerz
J
N
  • Question Question
XL 2021 Affecter automatiquement une valeur dans une cellule en fonction d'une saisie dans une autre cellule
Réponses
9
Affichages
303
Nico Gre
N
B
  • Question Question
XL 2013 excel Copier coller feuille avec tout le contenue
Réponses
4
Affichages
307
Bodin44
B
J
  • Question Question
XL 2019 index equiv avec fonction ou sur plusieurs feuilles
Réponses
11
Affichages
905
job75
N
  • Question Question
XL 2010 recherche formule
2
Réponses
23
Affichages
668
n_turf
N
A
  • Résolu(e)
XL 2021 Numéroter doublons dans un tableau structuré Pb plage recherche
Réponses
2
Affichages
126
AD74
A
D
  • Question Question
Microsoft 365 problème d'index
2
Réponses
19
Affichages
498
dad621
D
E
  • Question Question
LibreOffice Calc Recherche sur plusieurs onglets pour constituer un tableau
Réponses
0
Affichages
312
evindi
E
  • Résolu(e)
XL 2019 Heures des marées suivant les données verticales
2 3 4
Réponses
48
Affichages
1 K
guy72
S
  • Question Question
Microsoft 365 Récapituler comptes dettes
Réponses
3
Affichages
233
Seydina
S
N
  • Question Question
Microsoft 365 Calcul de prix moyen pondéré de recettes
2
Réponses
15
Affichages
837
Nino63
N
N
  • Question Question
Microsoft 365 Propagation de formule dans un tableau avec des valeurs existantes (saisies manuellement)
Réponses
4
Affichages
393
NikonvsWild
N
J
  • Résolu(e)
Microsoft 365 calcul somme dans tableau selon critère
Réponses
2
Affichages
439
JBL07
J
M
  • Question Question
Microsoft 365 Récupération des plages nommées des fichiers dans un répertoire
Réponses
8
Affichages
363
dysorthographie
J
  • Résolu(e)
Microsoft 365 Anomalie tri colonnes d’un tableau
Réponses
14
Affichages
695
JPC33
J
A
  • Résolu(e)
XL 2019 Macro Excel recherche par occurrence Macro déjà créer juste modifications
2
Réponses
25
Affichages
924
Aeroberto0099bis
A
F
  • Question Question
XL 2016 travail sur tableau
2 3 4
Réponses
55
Affichages
2 K
finarobert
F
G
  • Résolu(e)
Microsoft 365 Utilisation table de correspondance pour le calcul soldes des comptes
2 3
Réponses
39
Affichages
761
Germaine
G
  • Résolu(e)
Microsoft 365 VBA : Break line méthode
Réponses
3
Affichages
263
VBA_dev_Anne_Marie
D
  • Résolu(e)
XL 2016 Classeur en page web
2
Réponses
15
Affichages
635
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…