Adaptation VB Excel dans GSheet

Bonjour,

voici un code que j'aimerais adapter sur Sheet

Sub Worksheet_Change(ByVal T As Range)
If T.Count > 1 Then Exit Sub
If Not Intersect(T, [B13]) Is Nothing Then ' Si B13
Application.ScreenUpdating = False ' Figer écran
Columns("C:OE").EntireColumn.Hidden = True ' Tout démasquer
' Masquer du début à la semaine considérée
Range(Cells(1, 7 * [B13] - 6), Cells(1, 395)).EntireColumn.Hidden = False
End If
End Sub

Voici le fichier

Merci

Belle journée

Kinay

Bonjour et bienvenue,

Il serait préférable de mettre un lien vers une copie de ton projet sous Google Sheets.

Salut voilà le lien sur mon fichier

https://docs.google.com/spreadsheets/d/1LqVqWzJW_ZBu4_tQ_aP6ROUM7FlPn7IaC0_MuqkZRiI/edit?usp=sharing

Merci d'avance

Belle journé

Bonjour, désolé voici le bon lien

https://docs.google.com/spreadsheets/d/1aKeYMStSr99tphC6gnIr66fH2NXGb4qL6EP3Ntduvgo/edit?usp=sharing

Belle journée

Kinay

B13 ne contient rien du tout !

In fine

function onEdit(event){
  var feuille = event.source.getActiveSheet();
  var cellule = event.source.getActiveRange();
  if (feuille.getName()=='Planning' && cellule.getA1Notation()=='B14'){
    feuille.unhideColumn(feuille.getRange('C1:OE1'))
    feuille.hideColumns(3, (cellule.getValue()-1)*7)
  }
}

Bonjour, Mikhail

Un grand MERCI pour cette traduction ! B13 est devenu B14 j'ai rajouté une ligne a dessus.

Belle journée

kinay

Une petite question dans gSheets il y à la fonction nomdeficher

=DROITE(CELLULE("nomfichier";$B$1);NBCAR(CELLULE("nomfichier";$B$1))-TROUVE("]";CELLULE("nomfichier";$B$1);1))

si non on la remplace comment ?

encore une Belle journée

une autre petite question comment on utile une Plage Nommée (CLIENT1) dans une MFC

=RECHERCHEV(A1;CLIENT1;1;FAUX)=A1

ça ne fonctionne pas

Merci encore

La MFC ne fonctionne pas car il y a #REF! dans ta formule !

mais ta plage nommée existe bien, il faut la mettre dans la MFC

Attention, tu me sembles balayer large dans la définition de la plage affectée par la(les) MFC(s), cela peut entraîner une perte de performance (excel comme GSheets)

Ce truc tordu mais très pratique en excel

=DROITE(CELLULE("nomfichier";$B$1);NBCAR(CELLULE("nomfichier";$B$1))-TROUVE("]";CELLULE("nomfichier";$B$1);1))

n'existe pas en GSheets, mais on peut le faire en script.

en A1

=nomFeuille()

function nomFeuille() {
  var nom = SpreadsheetApp.getActiveSpreadsheet().getActiveSheet().getName();
  return nom
}

pour la réactualiser, mets une case à cocher en A1, mets en B1

=nomFeuille(A1)

et coche/décoche la case pour actualiser.

ou autre solution, que je trouve un peu chronophage car elle se déclenchera à tout changement dans la feuille (entre A et Z)

=nomFeuille(A2:Z)

dernière solution : par onEdit sur la feuille active (ou sur la feuille en testant son GID et pas son nom -du moins en entier- car il est sensé changer !)

Regarde quand je mets CLIENT1 c'est en rouge ??

=RECHERCHEV(A1;CLIENT1;1;FAUX)=A1

Explique ce que tu veux faire car la formule est curieuse ! faire une recherche sur la première colonne ... c'est juste vérifier l'existence. De plus le dernier A1 n'est pas figé ...

Je veux rechercher un nom dans les colonne Clients dans l'onglet param, pour que si il existe dans le planning il s'affiche d'une couleur différente et ça pour chaque colonne clients1 en bleu, client2 en jaune etc..

merci pour ton temps passé avec moi

Belle journée

Où se situe ce nom dans le planning ?

Que faut-il colorier ? juste la cellule contenant ce nom ? ou bien une ligne ou une colonne entière ?

J'ai beaucoup de difficultés avec ton fichier car il dépasse ma taille d'écran de 10"

La formule est normalement celle-ci et elle fonctionne.

=COUNTIF($J$159:$J;A1)>0

mais je ne comprends pas pourquoi il ne prend pas CLIENT1 ... il faut travailler ce genre de choses sur un fichier test réduit.

Vraiment merci j'ai mis la liste clients sur la mm feuille et là ca vas mieux

j'investiguerai de mon côté pour comprendre

si tout est ok, clos le fil de discussion en cliquant sur

Bonjour,

j'avais une autre demande si c'est possible

extraire des donnés d'un Planning CLIENTS simple dans ce planning avec le nom des clients et assigné à la bonne entreprise en sautant les jours chaumés (samedi dimanche et jours fériés)

j'ai intégré à la main le résultat que j'aimerai dans le fichier toujours le même,

merci d'avance, en tous les cas Sheets me plait bien

Belle journée

https://docs.google.com/spreadsheets/d/1aKeYMStSr99tphC6gnIr66fH2NXGb4qL6EP3Ntduvgo/edit?usp=sharing