Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Mise à jour d'une feuille à l'autre

Mise à jour d'une feuille à l'autre

Aucune réponse
Avatar
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
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
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" a écrit dans le message de
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




Avatar
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

Avatar
Rex
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" <AS_rauphil_at_wanadoo.fr> a écrit dans le message de news:

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" a écrit dans le message de
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







Avatar
Rex
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" a écrit dans le message de news:


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