Modification d'une cellule dans un code VBA, quand je déplace celle-ci ?

Question

Je débute avec VBA, et j'ai un petit souci, suite à ma macro ci-dessous (c'est une remise à zéro de plusieurs cellule, sur action d'un bouton). Ma question est: quand je déplace une cellule ou insérer une ligne, dans mon tableau, ça ne modifie pas automatiquement le code VBA (exemple la cellule B6 et je la déplaces en E8), mais je ne sais pas si c'est possible, j'ai beau chercher depuis 1 semaine et je ne trouve pas........... est-ce possible ?, sinon manuellement ça fonctionne 😂 Merci beaucoup d'avance de vos réponses J'espère avoir été clair 😊 Excelement vôtre Franck Sub BaseDeDonnée() ' ' BaseDeDonnée Macro ' ' Range("B2").Select ActiveCell.FormulaR1C1 = "35" Range("B3").Select ActiveCell.FormulaR1C1 = "0" Range("B4").Select ActiveCell.FormulaR1C1 = "0%" Range("B5").Select ActiveCell.FormulaR1C1 = "0%" Range("B6").Select ActiveCell.FormulaR1C1 = "0" Range("B7").Select ActiveCell.FormulaR1C1 = "0" Range("B8").Select ActiveCell.FormulaR1C1 = "0%" Range("B9").Select ActiveCell.FormulaR1C1 = "0%" Range("B10").Select ActiveCell.FormulaR1C1 = "0%" Range("B11").Select ActiveCell.FormulaR1C1 = "0%" Range("B12").Select ActiveCell.FormulaR1C1 = "1.50%" Range("B13").Select ActiveCell.FormulaR1C1 = "0%" Range("B14").Select ActiveCell.FormulaR1C1 = "0%" Range("B15").Select ActiveCell.FormulaR1C1 = "0%" Range("B1").Select End Sub Edit modo : code mis entre balises...

X Cellus · Accepted Answer

Suite,

Merci bien, mais si tu le souhaites tu peux aussi ajouter au vu de ton dernier fichier le format "".

Et en faisant suivre tes intitulés.

Exemples :

Code HSM Format 35

Code CEC Format 0.015

Code VID Format ""

Code MEN Format "Mensualisé"

etc...

Invité · Answer

Une petite présentation ICI serait la bienvenue Si vous ne l'avez pas encore fait, je vous invite à lire : - La charte du forum La prochaine fois, merci de mettre votre code entre balises, avec le bouton - Quelques fonctionnalites du forum à connaître Regardez aussi les petites icônes mises à votre disposition dans la barre de menu qui : - vous permettent de poster un code ( &lt;/&gt; ) - de citer une phrase (" ") - ou de clôturer un fil lorsque vous avez terminé ( V ) Merci pour votre participation Cordialement...

BsAlv · Answer

On peut donner une cellule ou une plage un nom ( https://www.cours-gratuit.com/tutoriel-excel/tutoriel-excel-comment-crer-une-plage-nomme ) et si on insert une ligne alors cette plage nommée se déplace. En annexe j'ai nommée la cellule B2 "Ma_Cellule" et j'ai ajouté le couleur vert. Alors avec cette macro, on fait la même chose. avec la construction With ... End With, on utilise "Ma_Cellule" comme référence, c'est comme cette cellule est pour ce moment A1 on donne plusieurs format aux cellules on colle les données en une fois Sub BaseDeDonnée() arr = Array(35, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0.015, 0, 0, 0) 'une matrice avec les valeurs que vous voulez coller With Range("Ma_Cellule") 'nom de la plage nommée With .Resize(UBound(arr) + 1) 'préparer une plage avec le largeur égale à la matrice .NumberFormat = "0" 'toutes les cellules ce format .Range("A3:A4,A7:a14").NumberFormat = "0%" 'ces cellules (avec address relatif) ce format .Range("A11").NumberFormat = "0.00%" 'cette cellule ce format .Value = Application.Transpose(arr) 'coller la matrice (transposé) End With End With End Sub...

X Cellus · Answer

Cela peut se faire de différentes façons. Mais d'abord pour qu'elle raison déplacer une ou plusieurs cellule? Et la colonne à gauche portant l'intitulé de cette ou ces cellules est-elle déplacer ou non ...

X Cellus · Answer

A nouveau,

Voici un premier exemple pour ton RAZ de cellules. Basé sur ton premier post.

Sub RAZ()
'Zone exemple couverte A1 à AD200, à adapter au besoin.
For Col = 1 To 30
For Lig = 1 To 200
Select Case Cells(Lig, Col)
'Actuellement basée sur 3 codes (HSM, CEC et RAZ)
Case "HSM"
'Heures semaines
Cells(Lig, Col).Offset(0, 1) = 35
Case "CEC"
'Complémentaire employée cadre
Cells(Lig, Col).Offset(0, 1) = 0.015
'Toutes cellules ayant une remise à 0, quelque soit son format
Case "RAZ"
Cells(Lig, Col).Offset(0, 1) = vbNull - 1
End Select
Next Lig, Col
End Sub

Mais le principe est le même si tu ajoutes d'autres formats. A condition que tu associes un code (ici alphabétique) avec ton format.

C'est d'ailleurs le fonctionnement des logiciels de paye, le plus souvent par ,soit un code numérique ou soit alphanumérique.

Ce qui permet ensuite de pouvoir passer en comptabilité sur les bons comptes tout le bulletin de paie.

Et surtout de créer autant de fiches de paie mensuelles désirées sur une feuille.

Voir fichier ci-dessous et notes en rouge au bas de la feuille.

9matricethor.xlsm (17.75 Ko)