Sujet Précédent Sujet Suivant

EXCEL VB

Fermé
LENA - 24 oct. 2007 à 14:13
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 - 25 oct. 2007 à 13:56
Bonjour,
SALUT
A voir également:

7 réponses

Réponse 1 / 7
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
24 oct. 2007 à 14:19
Bonjour,

Hello

;o)

Polux
0
Réponse 2 / 7
LENA
24 oct. 2007 à 14:41
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
0
Réponse 3 / 7
Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
25 oct. 2007 à 01:14
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
0
Réponse 4 / 7
eriiic Messages postés 24571 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 19 mai 2024 7 217
25 oct. 2007 à 07:36
Bonjour,
[A65536].End(xlUp).Offset(1, 0).Select te sélectionne la 1ère cellule libre de la colonne A
eric
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 7
LENA
25 oct. 2007 à 09:02
BONJOUR
JE VOUS REMERCIE DE M AVOIR AIDER
JE VAIS ESSAYE ET JE VOUS ENVOIE DES NOUVELLES DU RESULTAT
MERCI
BONNE JOURNEE LENA
0
Réponse 6 / 7
LENA
25 oct. 2007 à 13:23
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
0
Réponse 7 / 7
LENA
25 oct. 2007 à 13:50
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
0
ShaBoo Messages postés 392 Date d'inscription mercredi 12 septembre 2007 Statut Membre Dernière intervention 5 septembre 2009 50
25 oct. 2007 à 13:56
Bonjour,

Dans un 1er temps, il faudrait que tu renommes certaines variables :

Par exemple :

N°affaire = Range("J4") <= NumAffaire = Range("J4")

quantité = Range("I23") <= Quantite = Range("I23")

Dans un 2ème temps, pense à mettre des points d'arrêt, afin de savoir ou l'excution du programme plante.

@+
0