Microsoft 365 VBA - rajout d'1 ligne automatique avec la formule et les validations de données (liste déroulante)

blancolie

XLDnaute Impliqué
Bonsoir le forum,

je vous présente ce fichier et quelqu'un de ce forum m' a apporté la solution mais cela ne marche pas dans mon fichier peut a cause que je suis sous mac et version d'office 365, peut être la cause.

alors pour ceux qui sont sur mac et ceux aussi sur pc car office 365 fonctionne sur pc

Mon but est de rajouter une deuxième ligne quand la cellule A3 est remplie. il faut bien sur que dans la nouvelle ligne, les formules et les listes déroulantes apparaissent aussi.

je n'y connais rien du tout en vba.

Cordialement
 

Pièces jointes

  • fleurissement 2.xlsm
    46.9 KB · Affichages: 22
Dernière édition:
Solution
Avant de vous quitter voici dans ce fichier (3) une macro qui évite qu'on efface les formules :
VB:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim colf, ub%, tablo, i&, j%
colf = Array(2, 4, 5, 7) 'colonnes des formules, à adapter
ub = UBound(colf)
With [Tableau1]
    If Not Intersect(Target, .Cells) Is Nothing Then
        Set Target = Intersect(Target.EntireRow, .Cells)
        For Each Target In Target.Areas
            tablo = Target.Formula 'matrice, plus rapide
            For i = 1 To UBound(tablo)
                For j = 0 To ub
                    If Left(tablo(i, colf(j)), 1) <> "=" Then
                        MsgBox "Ne pas effacer les formules !", vbCritical
                        Application.EnableEvents = False...

blancolie

XLDnaute Impliqué
Bonsoir,

Bon le vba, ce n'est vraiment pas fait pour moi.

Pourquoi cela ne marche pas code ?

quand j y arrive, cela copie mes données par fournisseurs dans les feuilles dédiées mais par ex qu'1 fanfelle qui va être copié mais pas les 3 et idem dans les autres feuilles. et drôle cela copie les données àpartir de A4 au lieu de A3

vraiment pas fait pour le vba moi
cette ligne : If CellZone.Offset(0, 4) = Right(WsFournisseur.Name, Len(WsFournisseur.Name) - 6) Then n'est elle pas la cause ?
merci de votre aide
 

Pièces jointes

  • Demande de Devis Versailles1.xlsm
    97.7 KB · Affichages: 5
Dernière édition:

Discussions similaires

Réponses
2
Affichages
608

Statistiques des forums

Discussions
312 239
Messages
2 086 508
Membres
103 238
dernier inscrit
ds776001