Bloc with non défini

DoubleZero

XLDnaute Barbatruc

• 12 Janvier 2016

• #16

Re : Bloc with non défini

Bonjour, le Fil , le Forum,

Calvus à dit:

... Après 3 heures de prise de tête...

Cliquez pour agrandir...

Vos "Match" et "Index" me donnent mal à la tête et je sens que Laetitia va m'achever avec un mdit tabl...

A bientôt

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 12 Janvier 2016

• #17

Re : Bloc with non défini

RR toutes & tous

une version simple d'un Mdit tabl


mais bon si pas trop de lignes pas bien utile

Code:

Sub es()
 Dim x, y, a As Long, b As Long
 x = Feuil2.Range("c1:h" & Feuil2.Cells(Rows.Count, 3).End(3).Row)
 y = Feuil3.Range("b1:f" & Feuil3.Cells(Rows.Count, 3).End(3).Row)
 For a = LBound(x) To UBound(x)
 For b = LBound(y) To UBound(y)
 If x(a, 1) = y(b, 2) Then x(a, 3) = y(b, 1): x(a, 4) _
 = y(b, 3): x(a, 5) = y(b, 4): x(a, 6) = y(b, 5)
 Next b: Next a
 Feuil2.[C1].Resize(UBound(x, 1), UBound(x, 2)) = x
End Sub

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 12 Janvier 2016

• #18

Re : Bloc with non défini

Bonsoir à tous,

Si, est ce une proposition pour le fun ou penses tu que c'est mieux ?
J'ai lu plusieurs fois que Index.Match était beaucoup plus rapide que Find.

Lone-wolf, je te cherchais sur la page main ne te trouvais plus ! Je cherchais un grand gaillard moi, type mutant ou Seigneur des Anneaux pas très causant, et voilà que je tombe sur un petit rondouillard souriant !

Lone-wolf à dit:

Et bien, j'aimerais comprendre; avec XL 2010, il n'y a aucun problème

Cliquez pour agrandir...

Je viens de réessayer avec ton dernier code, et en fait il y a une erreur qu'il suffit de corriger. Il est inscrit G2 au lieu de C2.

Par contre le code modifié de Paf fonctionne....sauf si l'on n'a pas de données contiguës...

Double Zéro, encore vivante après le code de Laetitia ?
Je suis sûr que tu vas te familiariser avec les Index Equiv.....

Laetitia , J'ai rien compris !! Fais gaffe, je risque de te demander de m'expliquer :
Merci pour ce code.

Très bonne soirée à tous

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Janvier 2016

• #19

Re : Bloc with non défini

Re Calvus, mais pas trop chauve

Il est inscrit G2 au lieu de C2.

Cliquez pour agrandir...

Si tu parle de cette ligne Set cel = .Find(Sheets(2).Range("g2"), , xlValues), elle correspond à la lettre que tu veux rechercher (à changer manuellement) et ensuite clic sur bouton.


A+

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 12 Janvier 2016

• #20

Re : Bloc with non défini

Re Kojak !

Euh..... Range ("g2") correspond bien à la cellule G2 non ?

Par ailleurs, en laissant comme ça, j'obtiens à nouveau Erreur 1004 cf image

A+

 

Pièces jointes

• Erreur 1004.PNG

  6.4 KB · Affichages: 41

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 12 Janvier 2016

• #21

Re : Bloc with non défini

re

Calvus à dit:

Si, est ce une proposition pour le fun ou penses tu que c'est mieux ?
J'ai lu plusieurs fois que Index.Match était beaucoup plus rapide que Find.

Cliquez pour agrandir...

donc tu es concerné par le petit mot que je me préparais à adresser à Laetitia

Si... à dit:

Laeti, tu as raison mais je n’ai pas l’habitude de piloter un super tanker, même avec des réacteurs, pour transporter quelques données.
Je laisse cela à l’usine qui doit alimenter plus de 50 000 000 de lignes.
En plus, tu as certainement vu que cela pouvait donner le vertige à et renverser Calvus qui tente d’apprivoiser son pédalo sans boussole ni cap.

Cliquez pour agrandir...

, pour passer une bonne soirée

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 12 Janvier 2016

• #22

Re : Bloc with non défini

Hé ! Mon pédalo, y flotte ! C'est déjà pas mal !

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 12 Janvier 2016

• #23

Re : Bloc with non défini

Re Calvus,

Tu recherches "a, b, c" ect. non?? En G2 tu inscrit une de ces lettres et ensuite clic sur le bouton.

Est-ce que tu as fait celà??


A+

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 13 Janvier 2016

• #24

Re : Bloc with non défini

Re Lon-wolf,

Oui. Ça me donne effectivement la lettre choisie.
Merci

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Janvier 2016

• #25

Re : Bloc with non défini

Je vous salue Calvus !

Et bein, on a eu chaud!

EDIT: l'image est un gif animé et elle reste figée. Une solution?


Très bonne journée


Amicalement Lone-wolf

 

Dernière édition: 13 Janvier 2016

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 13 Janvier 2016

• #26

Re : Bloc with non défini

re ,

oui il faut que tu bouges devant l'ecran

perso pas connaitre sorry

 

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 13 Janvier 2016

• #27

Re : Bloc with non défini

re

Lone-wolf à dit:

EDIT: l'image est un gif animé et elle reste figée. Une solution?

Cliquez pour agrandir...

des fois ça marche avec une petite claquette. Là, il te suffit de cliquer dessus .

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 13 Janvier 2016

• #28

Re : Bloc with non défini

Bonsoir laetitia, Si...

MDR

 

Vote positif 0 Vote négatif

Calvus

XLDnaute Barbatruc

• 16 Janvier 2016

• #29

Re : Bloc with non défini

Bonjour à tous,

Si, pourrais tu m'expliquer l'exact fonctionnement de R(x, x) dans ton code ?
J'ai du mal à adapter dans mon fichier, car je n'ai pas tout à fait saisi la logique, contrairement à ce que je croyais.

[Highlight=vb]
Private Sub CommandButton2_Click()
Dim R As Range, L As Long
[F:F].Clear
For Each R In Range("C1", [C6000].End(xlUp))
If IsError(Application.Match(R, Feuil3.[C:C], 0)) Then
R(1, 4) = "oups"
Else
R(1, 3) = Application.Match(R, Feuil3.[C:C], 0)
End If
Next
End Sub
[/code]

Si nécessaire je posterai mon fichier.

Merci

 

Vote positif 0 Vote négatif

DoubleZero

XLDnaute Barbatruc

• 18 Janvier 2016

• #30

Re : Bloc with non défini

Bonjour, le Fil , le Forum,

Une autre suggestion... Plus mieux bien ? Plus moins bien ???

A bientôt

 

Pièces jointes

• 00 - Calvus - Correspondance v2.xlsm

  787 KB · Affichages: 37

Vote positif 0 Vote négatif