XL 2016 copier valeur actuel

comment dois-je écrire ma macro pour quelle recopie les valeurs de la colonne c

Cliquez pour agrandir...

Sub worksheet_()
DL = Cells(Cells.Rows.Count, "C").End(xlUp).Row ' dernière ligne occupée
Range("B3:B" & DL) = Range("C3:C" & DL).Value   ' copie colonne C sur colonne B
End Sub

sylvanu à dit:

Bonjour richardlion,
Je ne comprends pas comment votre macro peut marcher sans erreur.
La ligne : "Range("C3:C17").Value" devrait sortir une erreur. Ce n'est pas une action mais une plage .
Cela devrait être "Range("C3:C17").Select"


On recopie les valeurs de la colonne C où ?
En PJ sur appui sur le bouton on recopie la colonne C sur la colonne B.

Code:

Sub worksheet_()
DL = Cells(Cells.Rows.Count, "C").End(xlUp).Row ' dernière ligne occupée
Range("B3:B" & DL) = Range("C3:C" & DL).Value   ' copie colonne C sur colonne B
End Sub

Si c'est pas ça, ou vous modifiez le code, ou vous expliquez plus clairement : On copie quoi sur qoui.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour richardlion,
Je ne comprends pas comment votre macro peut marcher sans erreur.
La ligne : "Range("C3:C17").Value" devrait sortir une erreur. Ce n'est pas une action mais une plage .
Cela devrait être "Range("C3:C17").Select"


On recopie les valeurs de la colonne C où ?
En PJ sur appui sur le bouton on recopie la colonne C sur la colonne B.

Code:

Sub worksheet_()
DL = Cells(Cells.Rows.Count, "C").End(xlUp).Row ' dernière ligne occupée
Range("B3:B" & DL) = Range("C3:C" & DL).Value   ' copie colonne C sur colonne B
End Sub

Si c'est pas ça, ou vous modifiez le code, ou vous expliquez plus clairement : On copie quoi sur qoui.

Cliquez pour agrandir...

sylvanu à dit:

Bonjour richardlion,
Je ne comprends pas comment votre macro peut marcher sans erreur.
La ligne : "Range("C3:C17").Value" devrait sortir une erreur. Ce n'est pas une action mais une plage .
Cela devrait être "Range("C3:C17").Select"


On recopie les valeurs de la colonne C où ?
En PJ sur appui sur le bouton on recopie la colonne C sur la colonne B.

Code:

Sub worksheet_()
DL = Cells(Cells.Rows.Count, "C").End(xlUp).Row ' dernière ligne occupée
Range("B3:B" & DL) = Range("C3:C" & DL).Value   ' copie colonne C sur colonne B
End Sub

Si c'est pas ça, ou vous modifiez le code, ou vous expliquez plus clairement : On copie quoi sur qoui.

Cliquez pour agrandir...

sylvanu à dit:

Vous savez, XLD est un site d'entraide, non un site divinatoire. 😉
Alors expliquez on insère une colonne où ?
En PJ je crée une colonne après H et je recopie H dans I.

VB:

Private Sub worksheet_activate()
    Dim DL%
    DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row                             ' Dernière ligne occupée
    Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Création colonne
    Range("I1:I" & DL) = Range("H1:H" & DL).Value                               ' Copie des valeurs de B vers C
End Sub

( cependant comme je suis sous 2007 la fonction utilisée en colonne H m'est inconnue, donc j'espère que ça marchera sur votre PC, sinon à vous d'adapter. )

Cliquez pour agrandir...

sylvanu à dit:

Je ne sais pas. D'une part je n'ai pas cette fonction qui apparait chez moi comme : _xlfn.XLOOKUP
D'autre part, la macro est en "worksheet_activate" comme dans votre fichier.
Donc le mieux, dans votre fichier réel vous installez cette macro qui n'est plus événementielle :

VB:

Sub RecopieValeurs()
    Dim DL%
    DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row                             ' Dernière ligne occupée
    Columns("I:I").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove ' Création colonne
    Range("I1:I" & DL) = Range("H1:H" & DL).Value                               ' Copie des valeurs de B vers C
End Sub

Vous mettez un bouton sur la feuille Synthèse, et vous l'accrochez à cette macro. Et vous appuyez sur ce bouton. Que ce passe t-il ?

Cliquez pour agrandir...

sylvanu à dit:

C'est assez simple car il faut toujours supprimer la colonne I qui est le dernier enregistrement.
Problème : si on appuie deux fois on supprime deux colonnes, il vaut mieux mettre un message d'alerte.
Mettez un bouton ainsi que cette macro :

VB:

Sub Annuler()
    Réponse = MsgBox("Etes vous sur de vouloir supprimer le dernier enregistrement ?", vbYesNo + vbQuestion)
    If Réponse = vbYes Then [I:I].Delete
End Sub

Cliquez pour agrandir...

sylvanu à dit:

Bonjour,
Difficile de répondre, vous avez plusieurs sources possibles comme :
- Les tutos de David : https://excel-downloads.com/media/categories/vba.4/
- Des sites internet.
Par ex pour msgbox vous avez :

Utilisation des MsgBox - Tutoriels & Astuces Excel > VBA pour débutants - Tutoriels : myDearFriend! Excel Pages

MsgBox lire Message Box est sans aucun doute la première instruction que tout développeur ait connue lors de son premier contact avec VBA. Parmi nous, lequel n'a jamais vu, ou fait ses premiers pas grâce à la célèbrissime boîte de dialogue Hello World Au delà du simple message d'alerte...

www.mdf-xlpages.com

ou un tuto qui vous donne même le code à utiliser :

Icône de la ressource

Construction automatique d'un MsgBox

8 Novembre 2024

Construire un MsgBox rapidement.

• sylvanu
• msgbox
• Utilitaires

ou des sites de formation comme :

Cours VBA gratuit

Apprenez le VBA (Excel) gratuitement étape par étape grâce aux leçons et exercices proposés sur ce site (variables, conditions, boucles, procédures, fonctions, boîtes de dialogue, événements, userforms, etc).

excel-pratique.com

OpenClassrooms

openclassrooms.com

Vous avez le choix dans les sites. Mais ce qui est important est l'expérience, l'huile de coude. C'est le meilleur moyen de se perfectionner.

Cliquez pour agrandir...