[Topic Officiel] l'Informatique (suite 3)

[Azrael_]

Merci mais un seul emplacement

Definis ton besoin exactement. 2 emplacements SD mini ? 2 USB 3.0 Type A mini ?

2 emplacement SD minium
1 emplacement USB3 mini
USB 3.0 mini



Envoyé de mon iPhone en utilisant Tapatalk

[sebh68]

T'as fais les maj ?

Justement, je crois que ça merde depuis une màj

[Chandrase]

2 emplacement SD minium
1 emplacement USB3 mini
USB 3.0 mini

Je confirme, ca n'existe pas, surtout pour les USB3 mini
Sinon, ca reste trouvable des dual slot pour SD avec USB 3 type A.

[Azrael_]

Non mais je voulais dire un emplacement USB 3 au minimum
Si t'as un lien je suis preneur chandy !

[Chandrase]

Non mais je voulais dire un emplacement USB 3 au minimum
Si t'as un lien je suis preneur chandy !

Tu prends un SD dual slot USB3 and tu le plug sur ton hub USB 3

[Sentenza]

Quelqu'un ici s'y connait en VBA Excel ?

[Chandrase]

Quelqu'un ici s'y connait en VBA Excel ?

J'ai pas mal pratiqué il fut un temps

[Sentenza]

Alors, voilà de manière schématique ce que j'essaie de faire.

J'ai une cellule qui peut contenir une valeur 1 ou 2 ou 3.... jusqu'à 12.
Je veux créer une macro qui dit que si la valeur est 1, alors il faut exécuter la sous_macro1, si la valeur est 2 il faut exécuter la sous_macro2, etc etc, si la valeur est 12 il faut exécuter la sous_macro12.

J'ai un problème avec les "if", j'ai essayé de faire ça avec un enchainement séquentiel "if truc=1 then call sous_macro1 end if, if truc=2 then call sous_macro 2 end if" etc etc, mais ça marche pas

Si tu as de quoi m'éclairer

[Chandrase]

Envoie moi ton code, je vais regarder !

EDIT: J'ai essayé avec ce code que j'ai trouvé sur internet et arrangé et ca marche bien.

Ma case A2 est une liste de validation avec des chiffres de 1 a 12.
Il faut ajouter une valeur nulle pour forcer le changement de valeur.

Code : Tout sélectionner

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$2" Then
        On Error GoTo bm_Safe_Exit
        Application.EnableEvents = False
        Select Case Target.Value2
             Case 1
                Call Macro1
             Case 2
                Call Macro2
             Case Else
                  'Do Nothing
        End Select
    End If
bm_Safe_Exit:
    Application.EnableEvents = True
End Sub

Public Sub Macro1()
    MsgBox "Macro 1"
End Sub

Public Sub Macro2()
    MsgBox "Macro 2"
End Sub

https://stackoverflow.com/questions/371 ... -selection

[Sentenza]

Super, j'ai essayé avec la fonction Select Case comme tu l'as indiqué, et ça marche
Merci beaucoup

[Axeleil]

Chandrase, qu’est ce qu’il est fort
#DieuVivant

[Chandrase]

Chandrase, qu’est ce qu’il est fort
#DieuVivant

[Golgote]

Salut tout le monde

Je voudrais changer mon PC.
Je m'en sert pour regarder des vidéos sur youtube, Netflix (pas le choix avec Free), je passe aussi par ça pour Deezer, aller sur des forums, sur tous les sites où on peut acheter des trucs dont on n'a pas besoin (wish, aliexpress).

Budget max 500 € avec windaube installé, et délai de livraison inférieur à 7 jours.

J'y connais rien du tout en config nécessaire.
Des idées svp ?

[Teutates]

Matériel.net c’est pas mal comme site, ça te donnera déjà des idées de config (usage bureautique)

[Veyete]

J'ai mon pc portable qui vient de rendre l'âme. Problème, je suis sous Ubuntu et je voulais récupérer des infos depuis le pc de ma femelle (Win10).
Évidemment, ça ne fonctionne pas. Z'auriez une astuce avant que je me flingue?