XL 2019 Renvoyé à la ligne suivante si la ligne demandé n'est pas libre

[arck]

Bonjour,
Je m'explique, j'ai une table qui est déjà pré-encodé sauf la deuxième colonne.
avec ma macro j'envoi un nom dans B2 ce qui a pour effet de remplir toutes mes autres colonne préremplie par me fonctions.

Est-il possible de demander à ma macro de coller mon copiage dans B3, B4, ect si les lignes précédentes ne sont pas libre ?

Voici la formule que j'utilise

Selection.Copy
Sheets("table confirm").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Etant total débutant je vous remercie de votre aide
J'espère avoir bien placé ma question au bon endroit ;-)

 

[ChTi160]

Bonjour arck
En faisant en sorte que la cellule ou doit être collé ta Copie soit déterminée dans ta procédure
exemple:

Dim DerLgn As Long
Selection.Copy
 With Sheets("table confirm")
       .Select
       DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'On determine la premiere cellule Vide de la Colonne 2  "B"'
  .Range("B" & DerLgn).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 End With

pense a mettre un Fichier !
à voir
Cordialement
Jean marie

 

[arck]

Bonjour arck
En faisant en sorte que la cellule ou doit être collé ta Copie soit déterminée dans ta procédure
exemple:

Dim DerLgn As Long
Selection.Copy
 With Sheets("table confirm")
       .Select
       DerLgn = .Cells(.Rows.Count, 2).End(xlUp).Row + 1 'On determine la premiere cellule Vide de la Colonne 2  "B"'
Range("B" & DerLgn).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
 End With

à voir
Cordialement
Jean marie

Je vais tester ça tous de suite merci pour votre réactivité

 

[arck]

Je vais tester ça tous de suite merci pour votre réactivité

Super une grand merci a vous ca fonctionne à merveille

 

[TooFatBoy]

Bonjour à toi aussi...

j'ai une table qui est déjà pré-encodé sauf la deuxième colonne.

Qu'appelles-tu "table" ? Est-ce un Tableau Structuré ?

Voici la formule que j'utilise

Selection.Copy
Sheets("table confirm").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Ceci n'est pas une une formule mais un morceau de macro.
Un conseil en passant : évite les Select ça ne sert à rien et ça risque de ralentir la macro.

Dans tes messages, mets ton code VBA dans la balise code avec le paramètre vb afin qu'il soit lisible plus facilement :

Selection.Copy
Sheets("table confirm").Select
Range("B2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Ce qui, sans les Select, pourrait donner (à vérifier...) :

Selection.Copy

Sheets("table confirm").Range("B2").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False

Est-il possible de demander à ma macro de coller mon copiage dans B3, B4, ect si les lignes précédentes ne sont pas libre ?

Si tu utilises un TS ça devrait simplifier le code de la macro.
Un classeur anonymisé représentaif serait le bienvenu.

 

[Phil69970]

Bonjour à tous et surtout à toi @arck qui nous a dit bonjour si gentiment 🙂

Et si tu nous donnais toute ta macro avec un un fichier anonymiser comme l'ont demandé @ChTi160 et TFB que l'on comprenne ce que tu veux faire.
On devrait pouvoir optimiser tout cela .

 

[arck]

Bonjour à tous,

Avec la réponse de @ChTi160 j'ai eu les infos nécessaire la macro fonctionne

Merci à tous

 

[arck]

Bonjour à tous et surtout à toi @arck qui nous a dit bonjour si gentiment 🙂

Et si tu nous donnais toute ta macro avec un un fichier anonymiser comme l'ont demandé @ChTi160 et TFB que l'on comprenne ce que tu veux faire.
On devrait pouvoir optimiser tout cela .

Désolé @Phil69970, il est vrai que j'étais tellement concentré dans ma publication que j'en ai oublié les principes de base ...

Ne dit on pas faute accepté a moitié pardonné ?

En plus j'ai corrigé mon erreur 😉😛 .

Par contre comment faites vous pour faire un dossier anonymiser désolé je débute sur les forum et en macro 🙄

 

[TooFatBoy]

Avec la réponse de @ChTi160 j'ai eu les infos nécessaire la macro fonctionne

Alors c'est formidable. 👍

 

[Phil69970]

@arck

En plus j'ai corrigé mon erreur 😉😛 .

C'est super on repart sur des bonnes bases.

Tu fais en sorte que ton fichier n'enfreigne pas le RGPD et qu'il soir représentatif

C'est quoi représentatif ?

- représentatif, même organisation des lignes et des colonnes, mêmes libellés, même nom des TS, mêmes noms de feuilles...
- anonymisé, pas de données personnelles réelles tels nom, n° sécu, adresse ... remplacé par Nom1, Nom2 etc ....
- simplifié, une quinzaine de lignes reproduisant l'ensemble des différents cas envisageables (Avec le résultat souhaité éventuellement)

Si la ou les réponses fonctionnent sur le fichier fourni et pas sur le vrai fichier c'est qu'il n'est en rien représentatif ou que tu n'as pas su transposer ce qui devrait être un simple copier coller du code.

PS : On a tous débuter un jour et tous les jours on apprends encore
De plus souvent il n'y a pas une seule et unique solution en VBA mais plusieurs qui aboutissent au même résultat