Copie de lignes avec variantes et conditions

[Geinoch]

Bonjour,
J'ai besoin d'aide pour paufiner cette commande. Je dois faire un bouton qui copie des cellules d'une ligne vers une autre feuille.

Variante, si la valeur de "A, la ligne copié" est semblable à une des valeurs de la colonne "B, de l'autre feuille" cette cellule ne se copie pas (mais les autres oui) et une ligne en dessous

Pour le moment j'ai cette commande (qui ne met pas la ligne en dessous), mais qui essait de faire ce que j'ai décrit au début, et qui ne réussit pas. Elle ne fait que copier la ligne complète sans prendre compte du IF

Help me =(

Private Sub CMDsend_Click()

Dim numligne As Long
numligne = Sheets("Global").Range("B65536").End(xlUp).Row
lignefin = Range("r65536").End(xlUp).Row
If Sheets("global").Range("B" & "B65536") = Cells(lignefin, 1) Then
Sheets("Global").Range("A" & numligne).EntireRow.Insert
Sheets("Global").Range("D" & numligne) = Cells(lignefin, 2) & " " & Cells(lignefin, 3)
Sheets("Global").Range("E" & numligne) = Cells(lignefin, 4)
Sheets("Global").Range("F" & numligne) = Cells(lignefin, 13)
Sheets("Global").Range("G" & numligne) = Cells(lignefin, 14)
Sheets("Global").Range("C" & numligne) = Cells(3, 18)
Else
numligne = Sheets("Global").Range("B65536").End(xlUp).Row
lignefin = Range("r65536").End(xlUp).Row

Sheets("Global").Range("A" & numligne).EntireRow.Insert
Sheets("Global").Range("B" & numligne) = Cells(lignefin, 1)
Sheets("Global").Range("D" & numligne) = Cells(lignefin, 2) & " " & Cells(lignefin, 3)
Sheets("Global").Range("E" & numligne) = Cells(lignefin, 4)
Sheets("Global").Range("F" & numligne) = Cells(lignefin, 13)
Sheets("Global").Range("G" & numligne) = Cells(lignefin, 14)
Sheets("Global").Range("C" & numligne) = Cells(3, 18)

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Je crois que le problème est dans mon Range, le logiciel ne veut pas scanner la colonnes pour voir si celle-ci contient la valeur égale à "A,X".

Et pour ce qui est de ce placer automatiquement en dessous lorsque celle ci est semblable, ça je suis perdu =(

 

[Chloulou]

Re : Copie de lignes avec variantes et conditions

dans ton test Pourquoi n'a tu pas quelquechoe.value?
de même pour transférer la valeur d'un cellule a l'autre tu dois mettre cells(RowIndex1,ColIndex1).value=cells(RowIndex2,ColIndex2).value

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Une seul raison, je suis nul en Excel et aussi aprce que c'est pas une copie de valeur mais bien une cellule = un autre

Mais bref, avec Value ou sans Value le résultat reste le même, sa copie la ligne sans prendre compte du IF =(

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Mais, je crois que sans vouloir t'as amené le problème... Je devrais peut-êre faire copy aussi =( Caca! Je vais devoir tout recommencer

Ah j'peux pas recommencer, si je veux après pouvoir faire un bouton qui met a jour, c'est la seule façon que je connais =( J'ai besoin d'aide

 

[Chloulou]

Re : Copie de lignes avec variantes et conditions

c'est surement ton test qui plante
Pas besoin de faire copy, une cellule = une autre c'est pas mal

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Quand tu dis "Test", tu veux dire le IF?
Si oui, t'as une idée?

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Y'a vraiment personne qui peut m'aider???

Pas obligé de prendre ma formule, au fond je veux que ça scan la ranger B de la deuxième feuille et que si la valeur est trouver, qu'il soit possible d'enter une fonction si =(

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Dois-je donner plus d'info?

 

[jeanpierre]

Re : Copie de lignes avec variantes et conditions

Bonjour Geinoch, re le forum,

Donner plus d'infos.... Non, le code de ton premier message est suffisamment long..... Je plaisante bien sûr.....

Par contre, si tu déposais un petit fichier exemple avec ce que tu as, ta procédure et ce que tu souhaites, je pense qu'il y aura des Vbaistes pour t'aiguiller....

Bon après-midi.

Jean-Pierre

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

J'ai essayer de supprimer plusieurs choses car les postes de l'endroit ou je travail n'ont pas Winzip et ne permette pas l'installation d'aucune logiciels... Mais finalement j'ai réussis à compresser la version diminué avec PKZIP (qui ne nécessite pas d'installation)... Si vous ne comprennez pas, à la limite je peux vous envoyer la version complète (sans donnée évidemment) en zip.

 

[jeanpierre]

Re : Copie de lignes avec variantes et conditions

Re,

Pour te signaler simplement qu'il n'y a besoin de rien pour Zipper, et ce, à partir de Win.Me, donc 2000, Xp....

Clic droit sur ton dossier, et Envoyer vers/dossier compressé...

Maintenant, je vais regarder ton fichier, mais à me souvenir de ta question, cela ne semble pas pour moi....

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Ne me demande pas pourquoi, mais au Ministère des Ressources naturelle du Québec, on roule encore sur un vieux windows NT

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Allez Jeanpierre, je suis certain qu'un gars comme toi avec le mot Barbatruc à coté de son nom peut cracker le satellite de la fox avec un vb script bien monté =)

 

[Geinoch]

Re : Copie de lignes avec variantes et conditions

Jeanpierre ou quelqu'un d'autre, svp. exercez votre magie! =)