> Tous les forums > Forum Bureautique
 modif auto: nbre de colonnes dans 1 tableau (vba)Sujet résolu
Ajouter un message à la discussion
Page : [1] 
Page 1 sur 1
Obelix73
  Posté le 24/08/2009 @ 20:13 
Aller en bas de la page 
Petit astucien

Bonjour à tous,

J'espère que vous avez tous passés d'agréables vacances,

Voici mon petit problème, sur la feuille 1 je saisi en a1:a8 des prénoms (soit sur 8 lignes) qui viennent se reporter sur la feuille 2 en b1:i1 (soit sur 8 colonnes)

Quand je saisi 8 prénoms sur la feuille 1, les cellules des 8 colonnes de la feuille 2 sont remplies,

mais que lors que je ne saisi que 6 prénoms (ou 5, 4, 3) sur la feuille 1, je voudrais qu'il n'y ai que les colonnes avec prénoms et que les autres colonnes ou il n'y a rien soient masquées.

d'avance merci pour votre collaboration,

Cordialement,

Publicité
ferrand
 Posté le 24/08/2009 à 21:56 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Mettre formule suivante dans les cellules B1 à I1 de la feuille 2:

=SI(DECALER(Feuil1!$A$1;COLONNE()-2;0)<>"";DECALER(Feuil1!$A$1;COLONNE()-2;0);"")

Si tu tiens absolument à du VBA, c'est possible aussi.

ferrand
 Posté le 24/08/2009 à 22:07 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Voilà du VBA pour faire la même chose :

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Integer
If Target.Column = 1 Then
c = Target.Row + 1
If c < 10 Then
If Target.Value <> "" Then
[Feuil2].Cells(1, c).Value = Target.Value
Else
[Feuil2].Cells(1, c).ClearContents
End If
End If
End If
End Sub

Procédure à coller dans le module de feuille de la feuille 1.

Bonne soirée.

Obelix73
 Posté le 24/08/2009 à 22:29 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Bonsoir Ferrand,

Je pense que je dois mal m'expliquer, feuil1 j'ai un tableau de B1:B9 en B1 je saisi "pierre", B2 "paul", B3 "jacques" et en B4:B9 je ne saisi rien.

sur la feuil2 B3 est = à feuil1!B1, C3 est = à feuil1!B2, D3 est = à feuil1!B3, E3 est = à feuil1!B4 et ce jusqu'a I3.

si en feuil1!B4 je ne saisi rien je voudrais que cette colonne (E) soit masquée et idem pour F, G, H et I.

@+

ferrand
 Posté le 24/08/2009 à 23:00 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Tu as écris dans ton premier post:

sur la feuille 1 je saisi en a1:a8 des prénoms (soit sur 8 lignes)

qui viennent se reporter sur la feuille 2 en b1:i1 (soit sur 8 colonnes)

Alors: ça devient B1 à B9 dans ton dernier post sur la feuille 1, soit décalage d'une colonne et une ligne de plus.

Et ça devient B3 à I3 sur la feuille 2, soit décalage de 2 ligne, toujours sur 8 colonnes, ce qui n'est plus cohérent avec la feuille 1

A préciser et confirmer.

Soit: je ne t'ai pas masqué de colonnes. Facilement rectifiable. Précise tes lignes et colonnes utiles...

Obelix73
 Posté le 24/08/2009 à 23:14 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Sorry,

c'est mon deuxième post qui est juste.

@+

ferrand
 Posté le 24/08/2009 à 23:15 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
  Astucien

Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Integer
If Target.Column = 2 Then
c = Target.Row + 1
If c < 10 Then
If Target.Value <> "" Then
[Feuil2].Columns(c).Hidden = False
[Feuil2].Cells(3, c).Value = Target.Value
Else
[Feuil2].Cells(3, c).ClearContents
[Feuil2].Columns(c).Hidden = True
End If
End If
End If
End Sub

Sur tes dernières spécifications, mais sur 8 lignes et 8 colonnes.

Ça masque et démasque. Et pas besoin de formule (de toutes façons ça les efface !)

Si tu veux initialiser, tu masques manuellement B à I avant de commencer à taper. Le relais est ensuite assurée par la procédure.

Obelix73
 Posté le 24/08/2009 à 23:32 
Aller en bas de la page Revenir au message précédent Revenir en haut de la page
Petit astucien

Merci beaucoup Ferrand,

Cela fonctionne a merveille.

désolé, je ne m'exprime pas forcement bien, car il n'est pas toujours simple d'écrire ce que l'on pense.

@+

Bonne soirée

Page : [1] 
Page 1 sur 1

Vous devez être connecté pour participer à la discussion.
Cliquez ici pour vous identifier.

Vous n'avez pas de compte ? Créez-en un gratuitement !
Recevoir PC Astuces par e-mail


La Lettre quotidienne +226 000 inscrits
Avec l'actu, des logiciels, des applis, des astuces, des bons plans, ...

Les bonnes affaires
Une fois par semaine, un récap des meilleurs offres.

Les fonds d'écran
De jolies photos pour personnaliser votre bureau. Une fois par semaine.

Les nouveaux Bons Plans
Des notifications pour ne pas rater les bons plans publiés sur le site.

Les bons plans du moment PC Astuces

Tous les Bons Plans
249,99 €Ecran PC 27 pouces Gigabyte M27Q (QHD, IPS, 0.5 ms, 170 Hz) à 249,99 €
Valable jusqu'au 25 Janvier

RueDuCommerce solde l'écran PC 27 pouces Gigabyte M27Q qui passe à 249,99 € au lieu de 340 €. Cet écran possède une dalle 27 pouces QHD (2560x1440) à 0.5 ms et à 170 Hz (FreeSync Premium et Adaptive Sync). Son pied est réglable en hauteur et en inclinaison.


> Voir l'offre
91,17 €Webcam Logitech StreamCam à 91,17 €
Valable jusqu'au 24 Janvier

RueDuCommerce fait une promotion sur la Webcam Logitech StreamCam qui passe à 91,17 €. On la trouve ailleurs à partir de 130 €. 

La Logitech StreamCam diffuse et enregistre des vidéos saisissantes et réalistes avec des mouvements fluides et des détails nets en Full HD 1080p à 60 fps. De plus, elle offre la possibilité de passer instantanément en mode portrait afin de filmer en format 16:9. Offrant de nombreuses possibilités, elle est idéale pour filmer sur Twitch, Facebook ou encore Instagram.

Intégrant la reconnaissance faciale pilotée par l'IA, vous obtenez une mise au point et une exposition nettes, quelle que soit votre position. L'exposition automatique est réglée avec précision pour vous montrer sous un jour flatteur dans des conditions d'éclairage variées.


> Voir l'offre
40,89 €Alimentation PC Gigabyte P650B (650W, 80+Bronze) à 40,89 €
Valable jusqu'au 24 Janvier

RueDuCommerce solde l'alimentation PC Gigabyte P650B (650W, 80+Bronze) qui passe à 40,89 € au lieu de 52,90 € ailleurs. Tous les condensateurs haute qualité de l'alimentation sont d'origine japonaise. Ils garantissent performances et stabilité sur le long terme. Avec Le ventilateur à roulement hydraulique silencieux de 120 mm optimise la réduction du bruit et les performances thermiques. La vitesse du ventilateur est ajustée en fonction de la détection automatique de la puissance. Le ventilateur à roulement hydraulique offre une durée de vie plus longue et plus stable. 


> Voir l'offre

Sujets relatifs
enlever lignes, colonnes d'un tableau dans word
Largeur Hauteur colonnes en mm dans Excel
détecter une discontinuité dans un tableau horodaté
Récupération dates dans tableau excel 2007
trier numéros dans plusieurs colonnes
macro afficher masquer lignes tableau dans word 2010
Mettre une liste d'une page Word dans un tableau Excell ?
excel intergrer dans un tableau des valeurs venant de tableau
Word 2007 clipart dans forme auto
Selectionner valeur dans tableau (vba)
Plus de sujets relatifs à modif auto: nbre de colonnes dans 1 tableau (vba)
 > Tous les forums > Forum Bureautique