Microsoft 365 Comprendre le code VBA pour pourvoir modifier

[blancolie]

Bonjour,

j'aimerais qu'on m'explique code pour pouvoir le modifier .

Sub SaveZoneSaisieParFournisseur()

Dim Ws As Worksheet, WsFournisseur As Worksheet

Dim PlageZone As Range, CellZone As Range

Dim Ligne As Integer



Set Ws = ThisWorkbook.Worksheets("Zone de Saisie")

Set PlageZone = Ws.Range("A3:A" & Ws.Range("A5000").End(xlUp).Row)


For Each CellZone In PlageZone

    For Each WsFournisseur In ThisWorkbook.Worksheets

        If CellZone.Offset(0, 3) = WsFournisseur.Name Then

            Ligne = WsFournisseur.Range("B5000").End(xlUp).Row + 1

            With WsFournisseur

            .Cells(Ligne, 1) = CellZone.Offset(0, 2)

            .Cells(Ligne, 2) = CellZone.Offset(0, 1)

            .Cells(Ligne, 3) = CellZone.Offset(0, 5)

            .Cells(Ligne, 4) = CellZone.Offset(0, 4)

            .Cells(Ligne, 5) = CellZone.Offset(0, 6)

            End With

        End If

    Next WsFournisseur

Next CellZone

End Sub

je voudrais comprendre pour supprimer la colonne A et G

merci

je suis nul en vba

 

[JBARBE]

Bonjour,
je voudrais comprendre pour supprimer la colonne A et G
merci
je suis nul en vba

Bonjour à tous,
Il vaut mieux avoir quelques notions de VBA pour modifier ou comprendre un code !
Voir le site de jacques boisgontier:

Formation Excel VBA JB

Bonne journée !

 

[blancolie]

oui j'ai regarde ce site mais voila voila

 

[jmfmarques]

Bonjour

mais voila voila

mais voilà voilà quoi, plus précisément ?

 

[blancolie]

lol que je cherches surement mal et que je ne prends pas le temps mais je trouve pas les éléments de reponse par rapport a ce code vba

 

[Patrice33740]

Bonjour,

Ici une excellent cours VBA gratuit pour débutant (et plus si affinités) :
Cours complet pour le VBA d'Excel

Et ne pas oublier la touche magique : F1
(tu cliques sur un mot du langage puis tu appuies sur F1)

 

[_Thierry]

Bonsoir

Set PlageZone = Ws.Range("A3:A" & Ws.Range("A5000").End(xlUp).Row)

Leçon 1 : Si tu vois un Set de Range comme celui-là, si tu supprimes la colonne "A" c'est encore pire qu'un éléphant dans un magasin de porcelaine, vaut mieux utiliser un CaterPillar ça détruit tout plus proprement et l'éléphant ne risque pas de se blesser.
Il faut maîtriser le Set d'un Objet Range pour voir changer sa colonne source.

CellZone.Offset(0, 3)

Leçon 2 : Dès que tu vois un OffSet dans une boucle, tu peux être sûr d'avance que tout le code va s'effonder comme un château de cartes si tu supprimes une colonne !
Il faut maitriser le OffSet (Ligne, Colonne) pour pouvoir rétablir si tu enlèves des colonnes.

Bonne soirée
@+Thierry

 

[blancolie]

ThisWorkbook c'est le classeur ?

 

[Patrice33740]

ThisWorkbook c'est le classeur ?

Et ne pas oublier la touche magique : F1
(tu cliques sur un mot du langage puis tu appuies sur F1)

Cliques sur Thisworkbook puis appuies sur F1

 

[blancolie]

le ws colle devant fournisseur c'est quoi ?

 

[Patrice33740]

le ws colle devant fournisseur c'est quoi ?

C'est un préfixe.
Il est fortement conseillé de préfixer le nom des variables pour mieux comprendre le code.
Ici le codeur à utilisé ws pour Worksheet comme c'est indiqué au début du code :

Dim [...], WsFournisseur As Worksheet

A lire :

 

[JBARBE]

le ws colle devant fournisseur c'est quoi ?

Re,
Sans être méchant, quant on ne comprends pas ça, alors il y a du pain sur la planche comme on dit !
Bonne nuit !

 

[blancolie]

il faut bien commencer et trouver des explications pourccomprendre

 

[jmfmarques]

Bonjour

il faut bien commencer et trouver des explications pourccomprendre

Tout-à-fait.
Reste à déterminer la manière de "commencer" (et ce : quel que soit le domaine d'apprentissage).
Et je n'en connais personnellement qu'une seule valable : commencer par la connaissance des notions de base et fondements. Faire l'inverse (découvrir peu à peu ces notions au travers d'exemples) est le "meilleur" moyen de perdre du temps.

par analogie : la multiplication n'est rien d'autre qu'une série d'additions, mais il serait pour le moins maladroit (et source de perte de temps) de tenter de comprendre l'addition au travers d'exemples de multiplications.