VBA Excel Question

Version imprimable

VBA Excel Question

Bonjour et oui c encore moi je sais désolé mais j'aurais besoin de savoir comment faut il faire pour que mes nouvelles donnés de B.O une fois importer dans ma feuille excel ne soit pas conservé dans ma page d'arriver lorsque je les modifies.
Autrement dit lorsque j'importe une première fois mes données B.O sur ma feuil3 et qui sont donc rediriger vers un tableau principal sur ma feuil1 grâce au code VBA ci-dessous et si j'en réimporte d'autres de B.O en supprimant les premières de ma feuill3 elles s'ajoute à la suite des autres sur ma feuil1 et non pardessus en fait.

Aurait-il un moyen pour que les données s'installe par dessus automatiquement??????

Voici le code que j'utilise pour transferer les données de ma feuill3 vers ma feuil1 :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 Sub NBRAGV() Dim ws1 As Worksheet Dim ws2 As Worksheet Set ws1 = Worksheets("Feuil3") 'ou nom de ta feuille de départ Set ws2 = Worksheets("Feuil1") 'ou nom de ta feuille d'arrivée Const Col_Depart = 13 ' N° de colonne de ta feuille de départ Const Col_Arrivee = 16 'N° de colonne de ta feuille d'arrivée Const Ligne_Depart = 7 ' N° de ligne de ta feuille de départ Const Ligne_Arrivee = 23 'N° de ligne de ta feuille d'arrivée ws1.Activate ws1.Cells(Ligne_Depart, Col_Depart).Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy ws2.Activate ws2.Cells(Ligne_Arrivee, Col_Arrivee).Activate ActiveSheet.Paste End Sub

02/08/2007, 21h48
zazaraignée

Tu dois déplacer ton curseur (ou ta référence de cellule) vers la première libre.

Code:

Feuil1.Range("A1").End(xlDown).Offset(1,0).Select

À Condition qu'il y ait déjà des données dans la Feuil1. Sinon, tu te retrouve complètement dans le bas de la feuille. Tu peux toujours vérifier l'adresse d'une cellule grâce à sa propirété Adress qui retourne l'adresse fixe (avec des $, exemple $A$65536).
03/08/2007, 09h40
ANTMA

Euh désolé suis novice je dois le mettre ou ce code dans le reste de mon code ????
03/08/2007, 16h10
zazaraignée

Ce que je veux dire, c'est que ta macro, telle qu'elle est écrite, écrasera toujours les données à l'arrivée parce que tes coordonnées d'arrivée sont fixe (dans des constantes). Il faudrait que tu puisse déterminer dynamiquement la plage d'arrivée pour ajouter les données toujours à la fin.

Le code que j'ai donné n'est qu'un exemple qui sert à déterminer la première cellule libre dans la colonne A quand des données sont déjà inscrites.

Tu connais les structures de contrôles de conditions If ?
03/08/2007, 16h51
ANTMA

Non en fait ce qui se passe c'est que mes données sont effectivement écrasé mais comme mon nombre de ligne est variable il arrive qu'il me reste des lignes des autres données.

En fait j'aimerais que lorsque je relance ma macro avec mon bouton d'execution l'ensemble des données antèrieur de ma feuil1 soit effaceret remplacer par mes nouvelles.

j'ai également une autre question mais concernant la mise en page :

est il possible de cadrier mon tableau, de colorier les cellules de mon tableau, d'aligner le texte de mes cellules et de colorier les données de mes cellules avec un code sachant que mon nombre de ligne est variable et donc la taille de mon tableau ????

Merci vbeaucoup pour vos réponse

et bien tu fais une macro qui te supprime les lignes ^^

du genre euh ....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Sub NBRAGV()
 
Dim ws1 As Worksheet
Dim ws2 As Worksheet
 
Set ws1 = Worksheets("Feuil3") 'ou nom de ta feuille de départ
Set ws2 = Worksheets("Feuil1") 'ou nom de ta feuille d'arrivée
 
Const Col_Depart = 13 ' N° de colonne de ta feuille de départ
Const Col_Arrivee = 16 'N° de colonne de ta feuille d'arrivée
 
Const Ligne_Depart = 7 ' N° de ligne de ta feuille de départ
Const Ligne_Arrivee = 23 'N° de ligne de ta feuille d'arrivée
 
ws1.Activate
ws1.Cells(Ligne_Depart, Col_Depart).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
ws2.Activate
ws2.Cells(Ligne_Arrivee, Col_Arrivee).Activate
Range(Selection, Selection.End(xlDown)).Delete
ActiveSheet.Paste
 
End Sub

enfin peut etre à tester et modifier selon ton désir:)

03/08/2007, 18h16
ANTMA

Non sa ne marche pas moi je voudrais tous supprimer d'un seul coup l'ensemble des colonnes que j'ai rentré grâce à ma première macro
qui me transfère mes données d'une feuille à l'autre selon un nombre de ligne variable;

Mon tableau part de la colonne et ligne B23 à P23 avec un nombre de ligne variable selon mes données, il faudrait que mes données soit supprimer avec un bouton en un seul click pour l'ensemble des colonnes de B à P avec comme ligne de départ la ligne 23 et une ligne de fin variable

et je n'arrive pas à le faire
04/08/2007, 00h18
zazaraignée

Le plus simple serait de supprimer la feuille et d'en créer une nouvelle.

En passant, tant que j'y pense, ce serait bien que tu modifie ton titre pour quelque chose de plus significatif.
04/08/2007, 12h48
Gorfael
Citation:

Envoyé par ANTMA

Non sa ne marche pas moi je voudrais tous supprimer d'un seul coup l'ensemble des colonnes que j'ai rentré grâce à ma première macro
qui me transfère mes données d'une feuille à l'autre selon un nombre de ligne variable;

Mon tableau part de la colonne et ligne B23 à P23 avec un nombre de ligne variable selon mes données, il faudrait que mes données soit supprimer avec un bouton en un seul click pour l'ensemble des colonnes de B à P avec comme ligne de départ la ligne 23 et une ligne de fin variable

et je n'arrive pas à le faire

Salut
Code:

1 2 3 Range("B23", IIf(Range("A1").SpecialCells(xlCellTypeLastCell).Row > 23, _ Range("P" & Range("A1").SpecialCells(xlCellTypeLastCell).Row), _ Range("P23"))).Clear
efface complêtement (format et contenu) les cellules de la cellule B23 à la cellule P ligne 23 si la dernière cellule utilisées est sur une ligne inférieure à 24, sinon, la dernière ligne utilisée

Si ce n'est pas la feuille active, remplacer les
Range
par

Code:

Sheet("nom de la feuille").Range

ou dans ta macro
Ws2.range
ce qui donne
Code:

1 2 3 Ws2.Range("B23", IIf(Ws2.Range("A1").SpecialCells(xlCellTypeLastCell).Row > 23, _ Ws2.Range("P" & Ws2.Range("A1").SpecialCells(xlCellTypeLastCell).Row), _ Ws2.Range("P23"))).Clear
Par contre, comme tu fixe des valeurs, Je ne comprends pas ta macro. Donc, je ne la modifierais pas, mais l'utilisation des SELECT, ACTIVATE est un frein au déroulement et donc dans la mesure du possible à proscrire
A+