Résultats pour "reportent celle dessous etc"

173 résultats pour cette recherche

Bonjour,

je vous explique ce que je cherche à faire... si je rentre des infos dans la cellule A1 par exemple, celle ci glisse en A2 (alors ça j'ai fait A2=A1 ) mais du coup je voudrais que quand je rentre une nouvelle info en A1 celle de A2 passe automatiquement en A3, celle de A3 en A4 etc et qu'a chaque fois que je rentre une nouvelle info en A1 les autres glissent vers le bas, est ce possible et comment faire svp merci

4doc1.docx (143.99 Ko)

Bonjour,

Malgré quelques essais, je n’arrives pas à trouver solution à mon problème.

Voici les informations pour la réalisation du code :

1. Le code demandé concerne seulement la colonne A.

2. Pour que le code s’exécute, deux conditions doivent être respectées, à savoir, la cellule sélectionnée doit être non vide et la cellule d’en dessous doit être vide.

Lorsque ces deux conditions sont respectées, si par exemple la cellule sélectionnée est la cellule A2 alors on va copier le contenu de la cellule A2 dans la cellule A3 (Cellule d’en dessous) en prenant soins d’ajouter une unité au chiffre se trouvant entre les deux signes tirets (-) et Slash (/).

Un exemple vaut mieux qu’un long discourt.

Supposant que la colonne sélectionnée est A2 et son contenu est "GTU25-001/2018 M", si j’exécute le code, le contenue de la cellule A3 devra être "GTU25-002/2018 M", alors cette même cellule A3 reçoit le focus.

Si j’exécute le code une 2e fois, le contenue de la cellule A4 devra être "GTU25-003/2018 M", alors la cellule A4 reçoit le focus et ainsi de suite.

Si maintenant la cellule sélectionnée est A6 et que son contenu est "HPM12-101/2018 F", si j’exécutes le code, le contenue de la cellule A7 doit être "HPM12-102/2018 F" et la cellule A7 reçoit le focus.

D’avance merci pour vos contributions.

Bonjour à vous,

Voici , j'ai encore besoin d'un petit coup de main.

J'ai un code qui insère une ligne entre la 5 ime et 6ime lignes selon le nombre de lignes demandés, par contre, lors de l'insertion ,les formules ne sont pas copié. J'aimerais que le format et formules soit basé sur la ligne du dessous, donc la 6 ime.

Si quelqu'un à une idée comment,,, ca fait quelques heures que j'essaie de trouver mais je n'y arrive pas. La copie se fait toujours avec le format du dessus...

( ps le code n'est pas de moi, je n'ai aucun mérite...; )

Merci !

Sub Insererlignes()
'Macro Dan
Dim message As String, title As String
Dim nblg As Byte
message = "Entrez le nombre de lignes"
title = "Insérer lignes"
nblg = Application.InputBox(message, title, Type:=1)
If nblg = 0 Then MsgBox "Le nombre de lignes est à zéro": End
Rows("6").Resize(nblg, 1).EntireRow.Insert Shift:=xlDown

End Sub

Bonjour à tous et une très Bonne Année 2017 au passage ,

Voilà ma femme voudrais bien s'amuser un peu avec excel et informatiser son stock de courses ménagères , entretiens maison , pour la salle de bain etc etc , donc voiçi ma demande pourriez-vous me créé un tableau pour savoir entré les marchandises stock départ /prix unitaire tva comprise / entrée de stock / sortie de stock et bien sur le total en euros de chaque article suivant le nombres de stock entré et sorti , et pour abuser un peu ( lol ) le tout avec des couleurs différentes suivant si c'est alimentaire , boissons , produits d'entretiens ou de toilette , car ayant une femme très économe elle aime savoir à l'avance de combiens cela lui coutera avant d'aller remplir les stocks.

J'ai chercher un peu partout sur les forums mais je n'ai rien trouver de ce qui pourrais lui convenir .

Je compte énorméments sur vos savoirs pour me créé ce tableau , je vous en remercie déjà à l'avance.

Bonjour à tous,

Je me lance dans excel en utilisant soit des posts soit des vidéos mais pas encore sûre de moi.

J'ai réussi d'après une vidéo à créer un planning automatique pour les années et pour les mois.

J'ai rajouter en bas du tableau des totaux par jours et un total général par mois.

Lorsque je remplis par exemple sur ma feuille :

année : 2019

mois : juillet

je mets mes petites info par exemple :

Congé : 2

j'ai bien un total par jour = 2 et donc un total pour le mois = 2

jusque là tout va bien !!!

Par contre lorsque je change de mois par exemple : aout ! et bien j'ai les infos du mois de juillet (un total par jour = 2 et donc un total pour le mois = 2) et non une feuille vierge ???

Qu'est ce qui cloche ??? Une piste svp !

merci

Bonjour,

j'ai un énorme fichier qui contient tout les envois que mon entreprise fait,

il contient une Feuille par jour de remise, donc 5 par semaine, et ce depuis le début de l'année.

j'utilise actuellement ce code VBA pour obtenir une page Recap, ( code que j'ai trouvé ici même d'ailleurs ) mais j'aimerais que les modifications que j'effectue sur cette page Recap se reportent directement sur les feuilles d'origine, sachant que j'en ajoute une nouvelle chaque jour, et que j'ai également besoin d'utiliser des filtres pour trier les différents envois afin de garder ceux qui ne sont toujours pas livré en haut de la liste

Sub transfert()
'Macro Dan pour CecileCosma - 20/09/12
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
With Sheets("RECAP")
dlgR = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A2:BA" & dlgR).ClearContents
End With
For i = 1 To Worksheets.Count
    If UCase(Sheets(i).Name) <> "RECAP" Then
        dlgR = Sheets("RECAP").Range("A" & Rows.Count).End(xlUp).Row
        With Sheets(i)
            dlgi = .Range("A" & Rows.Count).End(xlUp).Row
            .Range("A2:BA" & dlgi).Copy Sheets("RECAP").Range("A" & dlgR + 1)

        End With
    End If
Next
End Sub

est-ce possible ?

Merci de votre aide

Bonjour le Forum,

Je me suis créer un tri sur ma feuille liste.

J'ai ajouter ce tris sur d'autres feuilles et le tris passe automatiquement sur ma feuille liste.

Comment éviter cela.

Merci d'avance.

Balance58

Private Sub CommandButton1_Click()
If ComboBox1.ListIndex = -1 Then Exit Sub
With Feuil1
.Unprotect
.Select
col = (ComboBox1.ListIndex * 13) + 3
.Range(.Cells(4, col - 1), .Cells(43, col + 11)).Sort key1:=.Cells(4, col - 1), Order1:=xlAscending, Header:=xlNo
End With
MsgBox "Le tri à bien été effectué !!"
Unload Me
End Sub

Bonjour a tous.

Je cherche une fonction similaire à celle de google sheet

Sous google il y a la fonction Arrayformula qui replique automatiquement la formule a la ligne suivante dés que c'est possible

sous google en ligne 1 si vous ecrivez arrayformula(A1:A+B1:B) il reproduira A+B dans toute la colonne sans aucune manip et s'arretera quand il n y a pas de donnée dans les cellules

Merci pour votre aide

Bonjour

j'aimerai un code vba qui selectionne la cellule suivante si celle ci contient une valeur

merci

Bonjour tout le monde,

Je suis un débutant en Macro et en VBA et j'aurais besoin d'un petit coup de main.

Mon fichier est composé de plusieurs colonnes et j'aimerais que si une cellule de la colonne B contient "VIDE" elle soit supprimée de même que la cellule à sa gauche. En bidouillant des codes que j'ai récupéré j'ai ça:

Sub Suppression()

Dim i%

For i = 1005 To 2 Step -1

If Cells(i, 2).Value = "VIDE" Then (..........)

Next i

End Sub

Je ne sais pas comment écrire en VBA après Then "supprimer la cellule et la cellule de la colonne précédente située sur la même ligne" c'est pour ça que j'aurais besoin de votre aide.

J’espère que j'ai été clair

Merci d'avance pour vos réponses !

PS: la solution de supprimer entièrement la ligne ne marche pas parce que mon tableau comporte d'autres colonnes.

5excelforum.xlsm (75.26 Ko)

Bonjour à tous,

Depuis peu de temps je m'essaye à excel dans le but de créer une micro "application" de vente.

Seulement voila, quand j'arrive à ma dernière feuille "Remise prix", je souhaiterais que les valeurs des deux tableaux allant de b19 à 033 soient sans écart. C'est a dire que tout remonte en direction de b19 sans laisser de cellule vide entre les options validées dans la feuille "FeuilOption"...

J'ai essayé plusieurs formules contenant la fonction SI...ESTVIDE.. Mais sans jamais aucun succès à 100%.

Avez-vous une idée de formule et ou code pouvant éventuellement m'aider à résoudre ce problème ?

Je vous remercie d'avance pour votre temps consacré à m'aider.

Bonne soirée.

Babou

Bonjour à tous

Dans la feuille 1, j'ai un userform contenant un combobox, celui-ci contient la liste de fichier qui se dans un répertoire....Cette liste se trouve en feuille 2(Librairies) dans la colonne A....afin de trouver le chemin pour l'imprimer qui se trouve dans colonne B, j'aimerais si possible mettre dans une variable le chemin pour imprimer en fonction du choix(combobox)

Merci d'avance pour votre aide

Oli

Bonjour à toutes et tous,

j'ai une base de donnée excel de plus de 50 000 produits qui est mise a jour tous les mois par mon fournisseur

j'ai complété les champs de ma base car le fournisseur ne fourni pas tous les renseignements...

mais il me fourni tous les mois la meme base de donnée, avec des modif:

prix, nouveautés, indisponibilité etc

je voudrai pouvoir integrer dans ma base de donnée les nouveaux produits et trouver les modification rapidement sur les anciens pour les modifier sur ma base apres verif

il y a environ 2 a 300 modifs par mois, mais elles sont dispercées dans les 50 000 references

il faudrai extraire les lignes modifiées, dire si elle sont nouvelles ou si un element a changé.. et ensuite je les copie colle dans ma base...

je peux l'importer sous access si c'est plus facile sous access...

Bonjour,

J'aimerais mettre en rouge les dates inscrites avant le 1er décembre 2019 dans mon fichier Excel et je n'arrive pas à trouver la formule à mettre!

Merci beaucoup d'avance

Bonjour à tous,

Je débute dans les macros et du coup j'ai quelques questions.

Le but de ma macro est d'envoyer un mail lorsque la date de formation est passé.

Exemple: si la formation était le 24/04/2019 et que nous sommes le 02/05/2019, je souhaite que le mail s'envoie.

Sauf que je ne sais comment écrire cette condition.

J'ai essayé de trouve une solution à mon problème dans le forum mais je ne trouve pas...

Ci-dessous la macro que j'ai réalisé et ci- joint mon fichier Excel.

Si quelq'un a une solution je suis preneuse,

Merci beacoup

Private Sub CommandButton1_Click()

Dim LeMail As Variant

Dim Ligne As Integer

Set LeMail = CreateObject("Outlook.Application") 'création d'un objet Outlook

For Ligne = 2 To

If Date>=Range("C" & 3 +i) Then"

With LeMail.CreateItem(olMailItem)

.Subject ="Evaluation de votre formation à chaud"

.To = Range("D" & Ligne)

.Body ="Bonjour, Merci de remplir le questionnaire pour évaluer la formation que vous avez suivi dernièrement. Bonne journée cordialement "

.Display

End With

Next Ligne

End Sub

Bonjour la communauté,

je travaille avec des camions, et j'ai besoin d'envoyer le planning aux compagnies de transport.

Cependant, au travail notre système ne nous permet pas de voir les heure telles qu'elles le sont en réalité (c'est fait exprès)

j'aimerais pouvoir avoir la formule qui me permet de soustraire 1 heure à la cellule qui contient une date + une heure?

je pense que ça doit être assez simple, mais je ne trouve pas la formule du au fait qu'il y a combinaire date+heure

merci d'avance pour votre aide

excel heure

Bonjour, après plusieurs recherche je n'arrive pas a faire fonctionner correctement ma macro

Le but est d'imprimer des fichiers PDF depuis une imprimante autre que celle par défaut.

J'ai 2 problèmes, le premier est que pour chaque fichier à imprimer, j'ai une fenêtre qui s'ouvre me disant que le fichier peut être dangereux, etc..., malgrès le Application.DisplayAlerts = False. Est-il mal placé?

Le second est que j'ai bien une fenêtre qui me demande sur quelle fenêtre je souhaite imprimer mais l'impression se fait quand même sur l'imprimante par défaut et non sur celle choisi. Existe t-il une solution à ce problème?

Dans mon exemple il n'y qu'un fichier mais je peux fournir la macro complète si besoin

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" _
(ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String _
, ByVal lpParameters As String, ByVal lpDirectory As String _
, ByVal nShowCmd As Long) As Long

Sub PrintTest()

Application.DisplayAlerts = False

If MsgBox("Êtes-vous sûr de vouloir imprimer les notices de montage?", vbQuestion + vbYesNo, "Impression des notices de montage") = vbYes Then

    Dim ws As Worksheet
    Dim Chemin As String
    Dim NomFichier As String
    Dim Notice As String

    Set ws = Sheets("Notice de montage")
    Chemin = "\\SRV-SVL\Production\BE\Etude\Tunnel\Notice tunnel\"
    NomFichier = ws.Range("AE9") & ".pdf"
    Notice = Chemin & NomFichier

    Application.Dialogs(xlDialogPrinterSetup).Show

    ShellExecute FindWindow("XLMAIN", Application.Caption), "print", Notice, "", "", 1

Else
End If

Application.DisplayAlerts = True

End Sub

Je ne maîtrise pas du tout les macros mais j'ai déjà réussi à faire ça.

Merci d'avance pour votre aide

Bonjour,

Je but depuis 2 ou 3 jours sur le sujet ci-dessous (ceci est en 2 étapes mais dans la même macro)

étape 1 :

je souhaite que lorsque la cellule A1 est sélectionner (ou A2,A3...) copie la cellule à droite de celle-ci (donc B1 ou B2 "selon sélection") et la copie en M8

étape 2 :

après avoir fait l’étape 1 je souhaite que la macro "toto" se lance

J'espere avoir était assez clair !

D'avance merci pour votre aide précieuse...

Bonne journée

bonjour,

je voudrais importer le contenu d'une cellule d'un classeur fermé ( essai 1 ) cellule b2

à un autre classeur (essai 2 ) mais uniquement et automatiquement à l'ouverture de celui çi

çi-joint les 2 fichiers

merci de votre réponse

Jean Yves.

4essai-1.xlsx (15.04 Ko)
5essai-2.xlsx (15.31 Ko)

Bonjour à tous,

Je suis nouveau sur excel, dans le cadre de mon boulot j'ai à emballer des colis (pour envois) je dois donc mesurer chaque commande afin de trouver la taille de carton idéal. J'aimerais automatiser cette recherche et excel me paressais être un bon moyen.

Seulement je suis sur un os depuis plusieurs jours...

Voici mon problème, comme vous pouvez le voir sur la feuille de calcul j'ai un premier tableau qui mesure la taille de mes différents colis et me donne la taille finale que j'aurais (ici 40 x 30 x 27) cette dimension existe bien dans mes cartons, seulement les colis ne seront absolument pas protéger. J'ai donc besoin qu'excel sache me donner la valeur supérieure la plus adaptée soit 48 x 33 x 30. J'ai donc essayer de scindé mes dimensions de cartons (TAILLES) en différentes colonnes longueur (Lo) Largeur(La) Hauteur(Ha) mais je me suis rendu compte de ma bêtise, effectivement j'obtiens une dimensions qui n'existe pas. Même en passant les cellules sous un format texte pas moyen. J'ai aucunes idées de comment y arriver et surtout si c'est possible

Merci d'avance à tous ceux qui me répondrons

Cordialement, Raam997

9test.xlsx (13.32 Ko)

Recherches récentes

calcul taux tva seul feuilleplanning horraircreer facturecreer facture word pdf partir base modeleextraire liste multiple critereextraire liste fonction multiple criterecopier coller entre fichiers nouvellement ouvertworkbooksworkbooks activatetresorerieajout ligneprevisionnel tresorerievba color plage date double conditioncolonne vbadimspin textspinmail graphiquesharepointsci