Mise à jour d'une feuille à l'autre

Le
Rex
Bonsoir à toutes et tous

Encore quelques petites manipulations et je crois que mon fichier sera pret
Et ceci grâce à vous

La macro ci-dessous (qui fonctionne impeccablement, merci)
me sers à Récupérer de l'info sur une feuille "Offre" de la maniére suivante

Sur ma feuille "Listing" j'ai dans une séries de cellules des formules dans
le genre

=IF(Offers!EW4>0;Offers!EZ4;IF(Offers!EV4>0;Offers!EV4+30;0))
Et d'autres toutes simples comme =Offers!J4

La macro insére une ligne au-dessus de la première ligne de données
Puis sélectionne la plage et tire une ligne vers le haut pour recopier les
formules

J'ai deux soucis et si le premier est résolu, le deuxième disparaîtra tout
seul
Je voudrais, si c'est possible qui

Si "Listings" S4 = "Offers" B4 il ne se passe rien

Ou alors en début de macro un truc comme
Si "Listing" S4 # "Offers" B4 exécuter la macro
Sinon Msgbox "No more orders"



Le deuxième est un truc que je ne comprends pas du tout et pas grâve si on
résoud le premier

Si j'active cette macro, elle insère une ligne et tire les formules vers le
haut
Et si il n'y a rien des les cellules de la feuille "Offers" elles ont l'air
vides
C'est normale
Mais si je décide de supprimer cette ligne, mon PC se bloque
Je dois faire un Ctrl +Alt +Del et demander de terminer Excel
A ce moment Excel me demande si je veux réelement Fermer
Je clique sur Cancel et tout rentre dans l'ordre

MAIS

Si je parviens à bloquer la macro comme je vous ledemande
ce problème ci n'existera plus
Enfin si quelqu'un a une idée ..


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub UpdateListing_Click()
Range("A13").Select
Selection.EntireRow.Insert
Range("A14:T14").Select
Selection.AutoFill Destination:=Range("A13:T14"), Type:=xlFillDefault
Range("A13:T14").Select
Range("H9").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Philippe.R
Le #4675941
Bonjour Rex,
une piste avec, en début de ta macro :

vala = Sheets("Listings").Range("S4").Value
valb = Sheets("Orders").Range("B4").Value
If vala = valb Then
MsgBox "No more orders"
Exit Sub
Else
MsgBox "Go!"
'ta macro
End If

--
Avec plaisir
Philippe.R
"Rex" news:%
Bonsoir à toutes et tous

Encore quelques petites manipulations et je crois que mon fichier sera
pret
Et ceci grâce à vous

La macro ci-dessous (qui fonctionne impeccablement, merci)
me sers à Récupérer de l'info sur une feuille "Offre" de la maniére
suivante

Sur ma feuille "Listing" j'ai dans une séries de cellules des formules
dans
le genre

=IF(Offers!EW4>0;Offers!EZ4;IF(Offers!EV4>0;Offers!EV4+30;0))
Et d'autres toutes simples comme =Offers!J4

La macro insére une ligne au-dessus de la première ligne de données
Puis sélectionne la plage et tire une ligne vers le haut pour recopier les
formules

J'ai deux soucis et si le premier est résolu, le deuxième disparaîtra tout
seul
Je voudrais, si c'est possible qui

Si "Listings" S4 = "Offers" B4 il ne se passe rien

Ou alors en début de macro un truc comme
Si "Listing" S4 # "Offers" B4 exécuter la macro
Sinon Msgbox "No more orders"



Le deuxième est un truc que je ne comprends pas du tout et pas grâve si
on
résoud le premier

Si j'active cette macro, elle insère une ligne et tire les formules vers
le
haut
Et si il n'y a rien des les cellules de la feuille "Offers" elles ont
l'air
vides
C'est normale
Mais si je décide de supprimer cette ligne, mon PC se bloque
Je dois faire un Ctrl +Alt +Del et demander de terminer Excel
A ce moment Excel me demande si je veux réelement Fermer
Je clique sur Cancel et tout rentre dans l'ordre

MAIS

Si je parviens à bloquer la macro comme je vous ledemande
ce problème ci n'existera plus
Enfin si quelqu'un a une idée ........


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub UpdateListing_Click()
Range("A13").Select
Selection.EntireRow.Insert
Range("A14:T14").Select
Selection.AutoFill Destination:=Range("A13:T14"), Type:=xlFillDefault
Range("A13:T14").Select
Range("H9").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx




Trirème
Le #4675751

Encore quelques petites manipulations et je crois que mon fichier sera pret
Et ceci grâce à vous


Est-ce à dire que pour avoir de tes nouvelles il faudra aller sur le groupe Access ?
;-)

Trirème

Rex
Le #4675161
Bonjour Philippe

Et toutes mes excuses pour le délai mis à te répondre

Pas d'excuses boulot cette fois-ci

Simplement un bon coup de parresse ;-))))))

Et puis la cuisine est tellement plus attirante que le PC

Tout ceci pour te dire que ta solution fonctionne impeccablement

Merci à toi

A bientôt

Rex et bon dimanche ;-))) )))




"Philippe.R"
Bonjour Rex,
une piste avec, en début de ta macro :

vala = Sheets("Listings").Range("S4").Value
valb = Sheets("Orders").Range("B4").Value
If vala = valb Then
MsgBox "No more orders"
Exit Sub
Else
MsgBox "Go!"
'ta macro
End If

--
Avec plaisir
Philippe.R
"Rex" news:%
Bonsoir à toutes et tous

Encore quelques petites manipulations et je crois que mon fichier sera
pret
Et ceci grâce à vous

La macro ci-dessous (qui fonctionne impeccablement, merci)
me sers à Récupérer de l'info sur une feuille "Offre" de la maniére
suivante

Sur ma feuille "Listing" j'ai dans une séries de cellules des formules
dans
le genre

=IF(Offers!EW4>0;Offers!EZ4;IF(Offers!EV4>0;Offers!EV4+30;0))
Et d'autres toutes simples comme =Offers!J4

La macro insére une ligne au-dessus de la première ligne de données
Puis sélectionne la plage et tire une ligne vers le haut pour recopier
les


formules

J'ai deux soucis et si le premier est résolu, le deuxième disparaîtra
tout


seul
Je voudrais, si c'est possible qui

Si "Listings" S4 = "Offers" B4 il ne se passe rien

Ou alors en début de macro un truc comme
Si "Listing" S4 # "Offers" B4 exécuter la macro
Sinon Msgbox "No more orders"



Le deuxième est un truc que je ne comprends pas du tout et pas grâve si
on
résoud le premier

Si j'active cette macro, elle insère une ligne et tire les formules vers
le
haut
Et si il n'y a rien des les cellules de la feuille "Offers" elles ont
l'air
vides
C'est normale
Mais si je décide de supprimer cette ligne, mon PC se bloque
Je dois faire un Ctrl +Alt +Del et demander de terminer Excel
A ce moment Excel me demande si je veux réelement Fermer
Je clique sur Cancel et tout rentre dans l'ordre

MAIS

Si je parviens à bloquer la macro comme je vous ledemande
ce problème ci n'existera plus
Enfin si quelqu'un a une idée ........


xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
Private Sub UpdateListing_Click()
Range("A13").Select
Selection.EntireRow.Insert
Range("A14:T14").Select
Selection.AutoFill Destination:=Range("A13:T14"), Type:=xlFillDefault
Range("A13:T14").Select
Range("H9").Select
End Sub
xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx







Rex
Le #4675131
Access ???

Qu'est-ce que c'est cette bête là? ;-)))))

Je serais ici parmi vous pour encore un fameux bout de temps

Je sais que certains d'entres vous se réjouissaient de mon départ


BERNIQUE


J'y suis J'y reste

Depuis que j'ai eu "l'intelligence" de proposer mon aide au boss pour
certains de ses fichiers
En solutionnant (Grâce à qui? , Hein? ) avec succès ces problèmes tout en
réduisant son temps de travail

Je me retrouve maintenant "Le" spécialiste Excel alors qui ma seule qualité
est de vous connaître


Et puisse que tu te trancassait à l'avance de ne plus pouvoir répondre à mes
questions
A ne plus avoir ce bonheur exceptionnel de pouvoir me guider au travers des
méandres Vébéäësque d'Excel
(Ca, c'est un beau mot, hein? T'as vu le double tréma!!!!)

Voici une toute petite requête

Y a-t-il une limite dans l'usage des Index, Lookup et Vlookup?

Je vais devoir (très bientôt) mettre au point un truc pour faire une
recherche toute simple

Sur une feuille Sheet1
Dans la colonne A un nom dans les colonnes B.......F des chiffres

Sur une feuille Sheet2
Les même colonnes

Certains noms seront les mêmes et je vais devoir compiler le tout en une
seule liste

Le doute est qu'il y a sur la feuille Sheet1 environ 20.000 noms
Et sur la feuille Sheet2 environ 6.000 noms dont 3 à 4 mille se trouve déjà
en Sheet1

Si j'inclus une fonction ou formule tiré vers le bas cela vas ralentir ,
NON??????
donc j'envisage de passer par VBA

Je vais me baser sur un truc que j'ai fais (grâce au groupe) il y a quelques
années

En partant d'un fichier vierge j'avais un Userforme qui me demandais quels
fichiers je voulais incorporer
Puis il faisait des tris etc

Enfin si tu as un début de piste

Je suis encore pendu à tes connaissances

Je vais commencer sur ce truc dans le courant de la semaine


A bientôt

Rex ;-))) )))






"Trirème"

Encore quelques petites manipulations et je crois que mon fichier sera
pret


Et ceci grâce à vous


Est-ce à dire que pour avoir de tes nouvelles il faudra aller sur le
groupe Access ?

;-)

Trirème



Publicité
Poster une réponse
Anonyme