Bonjour à tous,j'ai un problème dans mon programme avec la fonction IF.Dans le morceau de programme ci dessous, le programme n'éxécute que les deux derniers if. Comment parvenir à ce qu'il prenne en compte toutes les conditions.
If Cells(3, 2) = "" Then
Range("E55:E85").Value = ""
Else
Range("E55").Value = Sheets("Données CR").Cells(3, 3).Value
End If
If Cells(3, 2) = FAUX Then
Range("E55:E85").Value = ""
End If
If Cells(4, 2) = "" Then
Range("E55:E85").Value = ""
Else
Range("E55").Value = Sheets("Données CR").Cells(4, 3).Value
End If
If Cells(4, 2) = FAUX Then
Range("E55:E85").Value = ""
End If
Sa ne prend en compte que le dernier paragraphe alors que ce n'est pas la même condition. J'imagine que c'est parce que je veux placer le résultat au même endroit sur la feuille. Mais vus que ce n'est pas la même condition. Je ne vois pas comment faire.
Désolée mais avec tes explications, je ne comprends pas ce que tu souhaites
joins un classeur exemple comme c'est recommandé dans la charte en indiquant clairement les différentes situations que tu peux rencontrer (cellules vides, FAUX... ) avec quelles combinaisons entre elles et le résultat que tu souhaites. Fais plustot ça sur un classeur à part, avec juste le strict nécessaire reproduisant la totalité des situations que tu rencontres mais pas plus.
Je vous met en PJ un fichier ou le problème apparaît.En effet lorsque B3 est vrai,rien n'apparait en E55.Par contre si B4 est vrai quelque chose apparait.Il faudrait que E55 se remplise si: B3 VRAI toute seule ou B4 VRAI toute seule,voire les deux en même temps.Merci pour votre aide.
Sub affichage()
Dim Cel As Range
For Each Cel In Range([B2], [B6])
If Cel = True Then
Cells(55, Cel.Row + 2) = Sheets("Données CR").Cells(Cel.Row, 3)
Else
Range(Cells(55, Cel.Row + 2), Cells(85, Cel.Row + 2)) = ""
End If
Next Cel
End Sub
Pour toutes les cellules de B2 à B6, si la cellule = Vrai, on inscrit à la ligne 55, colonne = Ligne de Cel +2, la valeur de la feuille données CR, colonne C, ligne de Cel
Sinon, on remplace toutes les valeurs des lignes 55 à 85 par "" (Pas trop logique, mais comme je ne connais pas tout...)
A+
Bonjour à tous et toutes,
J'ai deux feuilles,une feuille de sélection+affichage et une feuille qui contient les données. Dans la premiére feuille, je fais une sélection grâce a des cases à cocher. En cliquant sur le bouton "VALIDER" j'aimerais que le tableau se remplisse avec les données de la feuille "Données CR". J'espére avoir était clair. Merci d'avance pour vos réponses.
Dans le morceau de programme ci dessous, le programme n'éxécute que les deux derniers if. Comment parvenir à ce qu'il prenne en compte toutes les conditions.
If Cells(3, 2) = "" Then
Range("E55:E85").Value = ""
Else
Range("E55").Value = Sheets("Données CR").Cells(3, 3).Value
End If
If Cells(3, 2) = FAUX Then
Range("E55:E85").Value = ""
End If
If Cells(4, 2) = "" Then
Range("E55:E85").Value = ""
Else
Range("E55").Value = Sheets("Données CR").Cells(4, 3).Value
End If
If Cells(4, 2) = FAUX Then
Range("E55:E85").Value = ""
End If