Debutant VB: un probleme de ligne a copier!!!

Signaler
Messages postés
5
Date d'inscription
mercredi 12 août 2009
Statut
Membre
Dernière intervention
20 mai 2011
-
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
-
onjour a tous,


Je suis nouveau dans le monde du VB et pour ainsi dire je n'y connais rien...
Je cherche a écrire un code pour réaliser ceci:
J'ai deux plages de données sur une même feuille de calcul. Chaque ligne de ma plage de données 1 (qui va de la ligne 1 a 2053) a une ligne qui lui correspond dans le plage de données 2 (lignes 2069 a 4441). Le point commun entre ces ligne est un numéro de client. Je cherche donc a coller a la suite de la ligne i de la plage 1 la ligne j de la plage 2 ayant le même numéro client. (je ne sais pas si c'est clair mais je peux préciser si vous voulez)

Voici le code que j'ai tape et qui ne marche pas:

Sub Copierlignes
Const LigneDebut = 1
Const LigneFin = 2053
Const LigneDebut2 = 2069
Const LigneFin2 = 4441
Const ColonneEquiptype = 4 '
Const ColonneEquitype2 = 1
For i = LigneFin To LigneDebut Step -1
j = 4441
Do While Cells(i, ColonneEquitype) <> Cells(j, ColonneEquitype2)
j = j - 1
Loop
Range("j:j" ).Copy
Range("i,Ki:ABi" ).Paste
Next i
End Sub


Pouvez vous m'aider svp??


Merci beaucoup par avance

4 réponses

Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
Salut,

Qu'entends par "à la suite"

[list]
+Sur la même ligne?
+Sur la ligne suivante?
/list

Ensuite lorsque tu veux placer une variable dans Range, il ne faut pas la mettre dans les guillement

Range("j:j").Copy 'NON
    Range(j & ":" & j).Copy   'OUI


@+: Ju£i€n
Pensez: Réponse acceptée
Messages postés
5
Date d'inscription
mercredi 12 août 2009
Statut
Membre
Dernière intervention
20 mai 2011

Je parlais sur la meme ligne.


Merci de ton aide , mais est ce que quelqu'un peut juste m'expliquer rapidement la syntaxe des ranges, rows... Parce que je comprend pas ce qu'est &?


MErci
Messages postés
672
Date d'inscription
mercredi 22 janvier 2003
Statut
Membre
Dernière intervention
2 juin 2016
1
Bonjour

j : c'est un choux (ou entier)
& : opérateur de concaténation (peut etre remplacé par +)
":" : c'est une carotte (ou chaine)

Que VB est permissif, ajouter des entier et des chaines, des choux et des carottes
Messages postés
7393
Date d'inscription
mercredi 23 avril 2003
Statut
Membre
Dernière intervention
6 avril 2012
56
Salut,

bah ca fait de la soupe

Pour être plus rigoureux alors on écrira

Dim Ligne As String
Ligne = Cstr(j)
Range( Ligne & ":" & Ligne).Copy 


@+: Ju£i€n
Pensez: Réponse acceptée