EXCEL VB

Bonjour,

Hello

;o)

Polux

SALUT POLLUX CA ROULE MOI C EST PA S LE TOP POUR PREUVE
JE SUIS NOUVELLE SUR CE FORUM EST J AI UN GROS PROBLEME ENFIN PLUSIEURS/

1. JE SOUHAITE COPIER DES DONNEES D4UNE PAGE EXCEL SUR UNE AUTRE PAGE EXCEL EN PASSANT PAR VISUAL BASIC.CEPENDANT MES DONNEES PEUVENT CHANGER ET JE VEUT COPIER CES NOUVELLES DONNEE DANS MON TABLEAU EXCEL A LA SUITE DES ANCIENNES DONNEES DONC SANS EFFACER CELLE CI;
AUJOURD HUI MES DONNEES CE COPIE MAIS EFFACE LES ANCIENNE DONNEE CAR J AI PROGRAMME VISUAL EN AFFECTANT UNE CELLULE PRECISE POUR LE RECOPIAGE. COMMENT FAIRE POUR QUE CE PLACE A LA SUITE DES AUTRES SANS QUE JE DEFINISSE CHAQUE FOIS UN EMPLACEMENT DE CELLULE;
AIDER MOI SVP

2. DANS MON TABLEAU JE COPIE DES LIGNES EST POUR CHAQUE LIGNE JE LUI DEMANDE DE COPIER DAN SMON AUTRE PAGE EXCEL MAIS JE N ARRIVE PAS A UTILISE UNE BOUCLE POUR NE PAS REECRIE LA MEME CHOSE POUR CHAQUE LIGNE.VOUS ME DIREZ JE NE SAIT MEME PAS CI ON PEUT INCREMENT E UNE VARIABLE QUI EST L4ADRESSE D UNE CELLUE
VOILA OU J4EN SUIS

Sub maj_reserve_commande()
chemin = ActiveWorkbook.Path
suivi_commande = chemin & "\Suivi commandes par affaire\AFF" & ActiveSheet.Range("J4").Text & ".xls"
A = "J4"
N = 20
While i <= N

For i = 1 To 20
Workbooks.Open (suivi_commande)
Range(A1) = N°affaire
Next i
Wend
End Sub

SVP AIDER MOI JE SUIS DANS UNE GROSSE ......
MERCI BIOUS LENA

salut,

on peut incrémenter une variable qui prend l'adresse de la cellule:

Dim sCell As String
Dim i As Integer

sCell = "A"
For i = 1 to 20
sCell = sCell & i
Range(sCell) = N°affaire
Next i

Bonjour,
[A65536].End(xlUp).Offset(1, 0).Select te sélectionne la 1ère cellule libre de la colonne A
eric

BONJOUR
JE VOUS REMERCIE DE M AVOIR AIDER
JE VAIS ESSAYE ET JE VOUS ENVOIE DES NOUVELLES DU RESULTAT
MERCI
BONNE JOURNEE LENA

REBONJOUR ERIIIC
SUPER MERCI TA FONCTION ME SELECTIONNE BIEN LA CELLULE VIDE APRES MES DONNEES
CEPANDANT COMMENT FAIRE SI JE VEUT SELECTIONNE TOUTE LA LIGNE

Rows.End(xlUp).offset(1,0).select

NE DONNE AUCUN RESULTAT
JE SAIS QUE

Rows(12).select

VA ME SELECTIONNER UNE LIGNE PARTICULAIRE MAIS COMMENT FAIRE DANS MON CAS?

DE PLUS APRES AVOIR SELECTIONNER CETTE LIGNE VIDE APRES MES DONNEES JE SOUHAITE Y COPIER DES AUTRES DONNEES
J' AVAIT PENSE METTRE

fournisseur=Range("A3")
Workbooks.Open (suivi_commande)
[A65536].End(xlUp).offset(1,0).select=fournisseur

MAIS SANS RESULTAT ENFIN SI ERREUR 400. HI HI HI (JE RIE JAUNE!)
JE COMMENCE A DESERPERE CAR JE SUIT PLUTOT DOUEE EN C++ NORMALEMENT J UTILISE CBULDER MAIS LA C LA PREMIERE FOIS QUE JE TRAVAIL AVEC VB;

MERCI POUR TON AIDE JE COMPTE SUR TOI POUR ECLAIRER MA LANTERNE.
BISOUS LENA

Bonjour, POLUX31
MERCI POUR TON AIDE SEULEMENT CE CODE ME PRODUIT UNE ERREUR 400 ALORS J AIMERAI BIEN SAVOIR DE UNE C QUOI UNE ERREUR 400 CAR J EN AI AU MOINS 20/JOUR ET POURQUOI LE CODE ME PRODUIT CETTE ERREUR. NE LE PREND PAS MAL SURTOUT L ERREUR DOIT CERTAINEMENT VENIR D UNE INCOMPATIBILITE AVE C SE QUE J AVAIT DEJA ECRIT MAIS JE SUIS AU BORD DU DESESPOIR.........
AIDE MOI STPPPPP
VOICI MON CODE

Sub maj_reserve_commande()
' on recupere les infos necessaires
chemin = ActiveWorkbook.Path
suivi_commande = chemin & "\Suivi commandes par affaire\AFF" & ActiveSheet.Range("J4").Text & ".xls"

N°affaire = Range("J4")
fournisseur = Range("G13")
reference = Range("B23")
objet_et_clause_particulieres = Range("C23")
quantité = Range("I23")
delais = Range("C56")

'ouverture fichier
Workbooks.Open (suivi_commande)

Dim sCell As String
Dim i As Integer
sCell = "A"
For i = 1 To 20
sCell = sCell & i
Range(sCell) = reference
Next i

'Range("K9") = N°affaire
'Range("J12") = fournisseur

'Range("F12") = reference
'Range("G12") = objet_et_clause_particulieres
'Range("I12") = quantité
'Range("K12:K32") = delais

End Sub

OU EST LE PROBLEME J ESPERE QUE C PAS DANS MA TETE HI HI
ALLER MERCI BISOUS LENA