XL pour MAC 1er pas en macro

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 21 Avril 2021

• #2

Bonjour Choise,

Pour le premier point il vous faut calculer la profondeur de votre tableau, c'est à dire trouver la dernière ligne utilisée.
Pour le second point, il vous suffit de lire la cellule A1.
Ce qui pourrait donner :

VB:

Critère = Range("A1")               ' acquisition du critère à utiliser
DL = Range("A65500").End(xlUp).Row  ' calcul de la dernière ligne du tableau
ActiveSheet.Range("$A$2:$CF$" & DL).AutoFilter Field:=1, Criteria1:=Critère

Mais sans fichier test, ça reste approximatif.

 

Vote positif 0 Vote négatif

C

choise62

XLDnaute Nouveau

• 22 Avril 2021

• #3

Avec ton aide je me sentais liste des ailes mais hier !!! impossible même d'envoyer mon fichier.. après l'avoir réduit à 2 feuilles sans format avec un minimum de donnée il est passé de 2mo, à seulement 1,7.... bref j'ai abandonné
Ce matin je refais un petit exemple dans un nouveau classeur
voici mon cheminement
1- "liste des semences" sélectionner et filtrer les lignes par la colonne A pour
effacer le contenu des cellules qui contiennent "PO"
2 - inser une ligne en 4 ( si j'insèrerai avant cela crée un probleme avec le format conditionnel)
2 - " nouvelle fiche" sélectionner et copier les valeurs B18 : B 29
3 - "liste des semences" coller les valeurs dans la ligne 4 (précédemment crée pour l'occasion) et trier le tableau par la colonne E
4 - "nouvelle fiche" effacer le contenu des cellules de la fiche bleue qui ne sont pas verrouillées
et cette fois je te joins un fichier
belle journée

 

Pièces jointes

• test macro ex.xlsm

  22.8 KB · Affichages: 14

Vote positif 0 Vote négatif

C

choise62

XLDnaute Nouveau

• 22 Avril 2021

• #4

.... j'ai oublié la question dans mon message précédent
Comment écrire : vider les cellules de la colonne A qui contiennent le critère de la cellule A1
et Est-ce normal dans visual Basic de placer le curseur de la souris avant la dernière lettre ? exemple pour corriger "texto" par "texte" je dois placer le curseur avant le o !
au plaisir de te lire

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2021

• #5

Bonjour,

choise62 à dit:

qui contiennent le critère de la cellule A1

Cliquez pour agrandir...

Les cellules A1 sont vides !
Quelle cellule A1 de quelle feuille ?

Pour le second point, je ne sais pas faire.

 

Dernière édition: 22 Avril 2021

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 22 Avril 2021

• #6

Re,
En PJ un essai avec ce que j'ai compris.
J'ai commenté avec votre propre texte, et mis un module pas demande.
Donc il peut être optimisé ( en particulier avec les with end with )

 

Pièces jointes

• test macro ex.xlsm

  28.6 KB · Affichages: 7

Vote positif 0 Vote négatif

C

choise62

XLDnaute Nouveau

• 23 Avril 2021

• #7

merci de ton retour , peux tu me dire ou trouver le moyen de traduire le langage des macro en français .... j'ai bien essayer avec un traducteur mais le résultat en français est égal à l'anglais ...et oui! et c'est bien dommage, je ne comprend pas l'anglais
Bref: je n'ai pas compris ce que tu a écris dans macros 1 et macro2 ... dans celle nommée "traiter" tu m'aides en indiquant le déroulement. et donc, en contre partie de ton attention je me voudrais essayer de comprendre un minimum
en attendant je vais essayer de mettre en application ce que tu m'as envoyé
encore mille merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 23 Avril 2021

• #8

Bonsoir,
Dans le post #1 c'est aussi en anglais. Le VBA est toujours en anglais.
Mais vous pouvez avoir une aide en français soit en cliquant un mot et en faisant F1, soit en utilisant :

Résultats pour 'if' - Support Microsoft

support.microsoft.com

 

Vote positif 0 Vote négatif

C

choise62

XLDnaute Nouveau

• 1 Mai 2021

• #9

hello, bonjour
Je n'ai pas lâché l'affaire mais les aléas de la vie m'en ont tenue à l'écart, je reviens donc au point ou on en était resté :
dans la macro "traiter"
- point n°1 supprime les lignes qui ont une valeur P.O. dans la colonne A de liste des semences.
Ce que je souhaite étant de supprimer uniquent les valeurs P.O. de la colonne A
ou mieux supprimer les valeurs de la colonne A qui correspondent à la valeur Indiqué en A2 liste des semences
toutefois je garde précieusement cette formule pour une autre macro indépendante.

- point n°3 indique que la ligne sera recopié à la fin du tableau .... mais en exécutant la macro, je consate qu' elle est copiée dans la ligne des données supprimées pecedemment

-point n°4 si je protège la feuille excel me propose le déboggage
à bientôt j'espère et bon week-end

 

Pièces jointes

• test macro ex-4.xlsm

  26.8 KB · Affichages: 3

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 1 Mai 2021

• #10

choise62 à dit:

- point n°1 supprime les lignes qui ont une valeur P.O. dans la colonne A de liste des semences.
Ce que je souhaite étant de supprimer uniquent les valeurs P.O. de la colonne A

Cliquez pour agrandir...

Fait.

choise62 à dit:

- point n°3 indique que la ligne sera recopié à la fin du tableau .... mais en exécutant la macro, je consate qu' elle est copiée dans la ligne des données supprimées pecedemment

Cliquez pour agrandir...

Fait les données sont insérées en ligne 4.

choise62 à dit:

-point n°4 si je protège la feuille excel me propose le déboggage

Cliquez pour agrandir...

Il eût fallu savoir que cette feuille serait protégée.
Fait, mais sans mot de passe, sinon reprenez le code.

 

Pièces jointes

• test macro ex-4.xlsm

  25.1 KB · Affichages: 8

Vote positif 0 Vote négatif

C

choise62

XLDnaute Nouveau

• 2 Mai 2021

• #11

Bonjour
promis je vais m'appliquer pour mieux décrire le sujet
- la feuille protégée est la feuille Nouvelle fiche afin de faciliter la saisie
(liste des semences ne sera pas protégée)
- il y a un message qui demande un débogage, qu'est ce que cela veux dire ?
mille merci pour ce que vous faites pour moi

 

Pièces jointes

• Capture d’écran 2021-05-02 à 19.28.16.png

  98.5 KB · Affichages: 19

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2021

• #12

J'ai essayez de déprotéger les feuilles. Voir PJ.
Il suffit de faire :

VB:

Sheets("ListeSemence").Unprotect
...
    Travail
...
Sheets("ListeSemence").Protect

 

Pièces jointes

• test macro ex-4 (1).xlsm

  25.3 KB · Affichages: 6

Vote positif 0 Vote négatif

C

choise62

XLDnaute Nouveau

• 2 Mai 2021

• #13

bonsoir
dans "liste des semences" les cellules de la colonne A contenant une valeur égale à la cellule A2 de "liste des semences" doivent être vidées avec la macro mais cela ne fonctionne plus
comme cette feuille "liste des semence " ne doit pas être protégée .... j'ai essayé de supprimer ces indications dans la macro ! mais j'obtiens un message d'erreur !
si vous voulez bien encore regarder, j'en serai très contente.
merci

 

Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc

Supporter XLD

• 2 Mai 2021

• #14

Dans cette PJ, seule la feuille Nouvelle fiche est protégée.

 

Pièces jointes

• test macro ex-4 (1) (1).xlsm

  25.4 KB · Affichages: 6

Vote positif 0 Vote négatif

Solution

C

choise62

XLDnaute Nouveau

• 5 Mai 2021

• #15

dans la feuille "liste des semences"
la macro prévoit en point n°1
d'effacer le contenu des cellules de la colonne A contenant une valeur égale à la cellule A2 (dans ce cas: PO) de "liste des semences"

mais cela ne fonctionne plus
un merci sincère et bonne soirée

 

Vote positif 0 Vote négatif