couper/coller

Lone-wolf

XLDnaute Barbatruc

• 12 Mars 2017

• #2

Bonjour ABDELHAK

ABDELHAK à dit : J’ai 2 tableaux (TAB1 = B5 : IU104) et (TAB2 = C111 : J120)



Cherchez l'erreur

Exécuter un couper/coller. D'accord, mais où coller les valeurs??

 

Vote positif 0 Vote négatif

A

ABDELHAK

XLDnaute Occasionnel

• 12 Mars 2017

• #3

Bonjour,

Exemple : couper/coller la valeur de C111 et si C111 est une cellule à fond vert (TAB2) vers une des cellules de même valeur se trouvant dans (TAB1 = B5 : IU104)
En espérant que ce soit + claire.
De tout cœur merci d’avance pour tout ce que vous avez fait pour moi.
ABDELHAK
A+

 

Pièces jointes

• Classeur1.xlsx

  10.4 KB · Affichages: 32

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Mars 2017

• #4

RE

T'as fumé du thé vert ce matin?? Quand on pose une question, on la pose correctement. Ouvre bien grand les yeux et regarde où commence la colonne de ton 1er tableau et où elle fini. De même pour le 2ème tableau.

 

Dernière édition: 12 Mars 2017

Vote positif 0 Vote négatif

A

ABDELHAK

XLDnaute Occasionnel

• 12 Mars 2017

• #5

RE
J'ai bu du café mais voici les ref des 2 tableaux

J’ai 2 tableaux (TAB1 = B5 : IU104) et (TAB2 = C111 : J120)

A+

 

Pièces jointes

• Classeur1 - Copie.xlsx

  10.9 KB · Affichages: 33

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Mars 2017

• #6

Et tu as mis quoi dans ton caffé???. Régarde bien l'image que j'ai mis

La dernière colonne du 1er tableau est L - le 2ème tableau se trouve en colonne O8 et fini en X21.

Tu as été les chercher où B5 : IU104 et C111 : J120 ???

Comme tu est sous 2003, pas sûr qu'elle fonctionne. Et sans couper-coller

VB:

Option Explicit

Sub Rech_Valeurs()
Dim tab1 As Range, tab2 As Range, cel As Range, c As Range


    With Application
        .EnableEvents = False
        .ScreenUpdating = False
        .Calculation = xlCalculationManual
    End With

    With Feuil1
        Set tab1 = .Range("b2:l21")
        Set tab2 = .Range("o8:x21")

        For Each cel In tab1
            For Each c In tab2
                If cel.Value = c.Value Then
                    cel.Value = c.Value
                    cel.Interior.Color = c.Interior.Color
                End If
            Next c
        Next cel
    End With

    With Application
        .EnableEvents = True
        .ScreenUpdating = True
        .Calculation = xlCalculationAutomatic
    End With

End Sub

 

Dernière édition: 12 Mars 2017

Vote positif 0 Vote négatif

A

ABDELHAK

XLDnaute Occasionnel

• 12 Mars 2017

• #7

Bonjour,

J’ai 2 tableaux (TAB1 = B5 : IU104) et (TAB2 = C111 : J120)

Ce sont les ref du tableau original.

Dans la pièce jointe le tableau est réduit, les références sont

TAB1 = B2 : L21

TAB2 = B28 : C41

Désolé pour mes explications incomplètes.

Merci d’avance

ABDELHAK

A+

 

Pièces jointes

• Classeur1 - Copie.xlsx

  11.4 KB · Affichages: 30

Vote positif 0 Vote négatif

A

ABDELHAK

XLDnaute Occasionnel

• 12 Mars 2017

• #8

re,

TAB2 = B28 : K41

Merci
A+

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Mars 2017

• #9

Re

T'es con ou t'es bourré . Pourquoi tu ne met pas une copie de ton fichier original avec quelques données au lieu de mettre des fichiers qui ne sevent à rien?? . Comment veux tu que je voie ce que ça donne??

 

Vote positif 0 Vote négatif

A

ABDELHAK

XLDnaute Occasionnel

• 12 Mars 2017

• #10

re
ni l'un ni l'autre sauf que parfois c'est d'expliquer par écrit ce que l'on veut vraiment
j'envoie donc le fichier original
Je croyais que le fichier original ne passerait pas à cause de la taille mais là ...
A+

 

Pièces jointes

• COMBAT_NAVAL.xls

  1.2 MB · Affichages: 30

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Mars 2017

• #11

Bein apparemment c'est le cas.

Dans le dernier fichier ORIGINAL, tu peux m'expliquer ceci : J’ai 2 tableaux (TAB1 = B5 : IU104) et (TAB2 = C111 : J120)



Et vu que c'est le cas et de plus il vaut mieux passer par des tableaux, je passe la main aux experts.

 

Vote positif 0 Vote négatif

A

ABDELHAK

XLDnaute Occasionnel

• 12 Mars 2017

• #12

Re,
Visiblement je n'ai pas su vous expliquer clairement ce que je veux.
J'essayerai + tard.
De toute façon merci d'avoir accordé de l'attention à mon petit projet.
Je tâcherai d'être + claire la prochaine fois.
A+
ABDELHAK

 

Vote positif 0 Vote négatif