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
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
SALUT
A voir également:
- EXCEL VB
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Si et excel - Guide
- Déplacer une colonne excel - Guide
- Excel moyenne - Guide
7 réponses
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
24 oct. 2007 à 14:19
Bonjour,
Hello
;o)
Polux
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
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
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
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
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
eriiic
Messages postés
24603
Date d'inscription
mardi 11 septembre 2007
Statut
Contributeur
Dernière intervention
15 décembre 2024
7 257
25 oct. 2007 à 07:36
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
[A65536].End(xlUp).Offset(1, 0).Select te sélectionne la 1ère cellule libre de la colonne A
eric
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
BONJOUR
JE VOUS REMERCIE DE M AVOIR AIDER
JE VAIS ESSAYE ET JE VOUS ENVOIE DES NOUVELLES DU RESULTAT
MERCI
BONNE JOURNEE LENA
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
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
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
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
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.
@+
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.
@+